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Guida per l’input dei programmi 
sullo ZX Spectrum 


Come è noto, lo Spectrum è provvisto di 
2 serie di tasti grafici: una prima serie di 16 
caratteri srafici predefiniti (i tasti numerici 
da 1 a 8 e sii stessi ' shiftati') e una serie 
di caratteri definibili dall'utente nell'ambi¬ 
to di un programma (le lettere da A a U). 
In entrambi i casi, per ottenere i caratteri 
desiderati occorre entrare in modo grafico 
(cursore contrassegnato dalla lettera G 
lampeggiante) premendo contemporanea¬ 
mente i tasti CAPS SHIFT e 9. 

Nei nostri listati i caratteri grafici predefiniti 
sono indicati da una G e dal numero corri¬ 
spondente al tasto che occorre digitare, il 
tutto racchiuso tra due parentesi graffe. 

A esempio {G4) significa che occorre digi¬ 
tare il tasto 4, con il cursore in modo grafi¬ 
co. 

Analogamente la codifica 5G, seguita da 
un numero da 1 a 8, significa che occorre 
digitare il relativo tasto numerico premen¬ 
do contemporanemaente il tasto CAPS 
SHIFT 

Ad esempio quando si trova la codifi¬ 


ca (SG2), occorre premere il tasto 2 con¬ 
temporaneamente al tasto CAPS SHIFT, ov¬ 
viamente con il cursore in modo grafico. 
In entrambi i casi precedenti, quando un 
simbolo grafico deve essere digitato più 
volte, i caratteri GoSG della codifica sono 
preceduti da un numero che specifica 
quante volte va premuto il tasto grafico in¬ 
dicato. 

Cosi ad esempio (8G5) significa che il ta¬ 
sto grafico 5 va digitato 9 volte , analoga¬ 
mente (4SG1) significa che il tasto grafico 
1, premuto insieme a CAPS SHIFT, deve 
essere battuto 4 volte. I caratteri grafici de¬ 
finibili de lettere da AaU in modo grafico) 
hanno una codifica semplificata.- la lettera 
corrispondente, sottolineata. 

Quando in un listato viene presentata, ad 
esempio, una A sottolineata, occorre en¬ 
trare in modo grafico (al solito premendo 
contemporaneamente i tasti CAPS-SHIFT e 
9) e quindi digitare semplicemente il tasto 
che contrassegna la ietterà A. 
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Questo articolo è rivolto esclusiva¬ 
mente ai "Commodoriani“ che usa¬ 
no il VIC 201 il 06 o il Plus/4. 

Se non l'hai già fatto, memorizza e 
salva su nastro o disco la versione 
di STOP BUG per il tuo computer. 
Questo programma ’ ti permette, 
una volta caricato ed attivato con 
RUN, di digitare i listati di Papersoft 
senza introdurre errori di battitu¬ 
ra. 

Come avrai notato, le linee dei no¬ 
stri programmi terminano con la 
parola: “■.rem"seguita da un nume¬ 
ro, detto checksum;■ NON COPIA¬ 
RE QUESTA PARTE DELLA LINEA, 
che serve solo per tua informazio¬ 
ne. Quando STOP BUG è in funzio¬ 
ne, infatti, tutte le volte che premi 
il tasto RETURN dopo aver digitato 
una linea di programma, appare 
nell'angolo superiore sinistro dello 
schermo un numero, che deve 
coincidere con il checksum da noi 
pubblicato (sempre che tu non ab¬ 
bia usato comandi abbreviati, co¬ 
me ? per PRINT). 

Usando STOP BUG tieni conto del 


fatto che gli spazi non influiscono 
sul checksum, per cui fai particola¬ 
re attenzione alle istruzioni PRINT 
dove spesso presenti. Inoltre 
eventuali inversioni di caratteri non 
vengono segnalate. 

Un altro metodo per utilizzare 
STOP BUG, soprattutto se sei abi¬ 
tuato ad usare le abbreviazioni dei 
comandi Basic, è controllare i che¬ 
cksum listando il programma e bat¬ 
tendo RETURN su ogni linea. 

Se intendi sospendere il lavoro di 
digitazione, puoi salvare su nastro 
o disco il programma che stai me¬ 
morizzando senza che STOP BUG 
interferisca,- al momento di ripren¬ 
dere il lavoro ricordati però di cari¬ 
care ed attivare STOP BUG prima 
di ricaricare il tuo programma. 

Per disabilitare STOP BUG premi 
RUN/STOP e RESTORE (su VIC 20) 
oppure RUN/STOP e RESET (su 
06 o PLUS/4). 

Per riattivarlo batti: 

SYS PEEK (56)*256 per il VIC 20; 
SYS 16128 per il 06 e il Plus/4. 
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STOP BUG per CI 6 e PLUS/4 


100 POKE55,0 :POKE56,63 :PRINT"{CLRIATTENDERE PREGO..." 

110 FORI = 1612 8TOl 6260 :READA:CK=CK+A:POKEI,A:NEXT 
120 IFCK<>1 4 24 8THENPRINT"{GIU'}ERRORE NELLE ISTRUZIONI DA 
TA": END 

130 SYS 16128 :PRINT"{CLR}{ 2 GIU'}{RVS}STOP BUG{OFF} ATTIV 
ATO.": NEW 

20 0 DATAI 73,34,3,201,32,208,1,96,1 41 
210 DATA33,63,173,35,3,141,34,63,169 
220 DATA32,141,34,3,169,63,141,35,3 
230 DATAI 69,0,133,6,96,32,232,235,1 33 
240 DATA3,134,4,132,5,8,201,13,240 

2 50 DATAI 7,201,32,240,5,24,101 ,6,1 33 
260 DATA6,165,3,166,4,164,5,40,96 

270 DATAI 69,13,32,210,255,165,205,1 41 ,251 
280 DATA3,206,251,3,169,0,133,207,169 
290 DATAI 9,32,210,255,169,1 8,32,21 0,255 
300 DATAI 69,58,32,210,255,1 66,6,1 69,0 
310 DATAI 33,6,172,33,63,1 92,2 32,208,6 
320 DATA32,95,164,76,117,63,32,7,208 

3 30 DATAI 69,32,32,210,255,32,210,255,1 73 
340 DATA251,3,133,205,76,55,63 

STOP BUG PER VIC 20 


100 POKE55,0 :POKE56,PEEK(56)-1 :R=PEEK( 56)*2 56 :PRINT" {CLR} 
ATTENDERE PREGO..." 

110 FORI=RTOR+132 :READA:CK=CK + A: IFA = 999THENA=R/2 56 
120 POKEI,A:NEXT 

130 IFCK< > 2 2 689THENPRINT"(GIU* }ERRORE NELLE ISTRUZIONI DA 
TA":END 

140 SYS(R):PRINT"(CLR){ 2 GIU 1 ){RVS}STOP BUG{OFF} ATTIVAI 
O•"2 NEW 

200 DATAI 73,36,3,201,32,20 8,1,96,141 
210 DATA33,999,173,37,3,141,34,999,169 
220 DATA32,141,36,3,169,999,141,37,3 
2 30 DATA 169,0,1 33,2 54,96,32,87,24 1 , 1 33 
240 DATA251,134,252,132,253,8,201,13,240 
2 50 DATAI 7,201,32,240,5,24,101 ,254,133 
260 DATA254,165,251,166,252,164,253,40,96 
2 70 DATAI 69,1 3,32,210,255,165,214,141,251 
280 DATA3,206,251,3,169,0,133,216,169 
290 DATAI 9,32,21 0,255,1 69,18,32,210,255 
300 DATA 1 69,58,32,21 0,255,1 66,254,1 69,0 
310 DATA1 33,254,1 72,33,999,192,87,208,6 
320 DATA32,205,189,76,117,999,32,205,221 
330 DATAI 69,32,32,21 0,255,32,21 0,2 55,1 73 
340 DATA251 ,3,1 33,21 4,76,55^.999 
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Il bruco innamorato 


Joystick opzionale 


Come si sa, i bruchi sono desìi in¬ 
guaribili dongiovanni e amano rac¬ 
contare agli amici delle loro innu¬ 
merevoli conquiste. Oggi tocca a 
te far sì che il nostro strisciante ami¬ 
co possa essere vanitoso delle sue 
avventure sentimentali, guidando¬ 
lo verso l'appuntamento con di¬ 
verse "bruchesse" che bazzicano 
nel suo orto. Attenzione però ad 


evitare fidanzati e manti, che pos¬ 
sono farti fare una brutta fine, ed 
inoltre stai all'occhio: nella foga 
amorosa, un contatto del l'amico 
bruco con se stesso si rivelerebbe 
mortale! 

Si può giocare o con il joystick 
(porta 1)o con la tastiera, e la ve¬ 
locità del bruco è regolabile. Buo¬ 
na "cuccata 7 


10 REM************************* 


: rem 

95 

20 REM* * 


: rem 

1 54 

30 REM* IL BRUCO INNAMORATO * 


: rem 

1 63 

40 REM* * 


: rem 

1 56 

50 REM* BY * 


: rem 

56 

60 REM* * 


: rem 

1 58 

70 REM* BEPPE & GIUSEPPE SOFT * 


: rem 

207 

80 REM* * 


: rem 

160 

90 REM************************* 


: rem 

1 03 

100 SCNCLR:COLORO,1,1:COLOR4,1,1:COLORl,2 

,6 

: rem 

74 

110 PRINTTAB(129)"tRVS}{YEL}IL BRUCO INNAMORATO{OFF}" 




: rem 

113 

120 PRINT"{YEL}{ 3 DES}{ 4 GIU'}{FLASH ON}ISTRUZIONI" 




: rem 

63 

130 PRINT"{YEL}{ 3 GIU'H 3 DES]{RVS}S{OFF}. 


Il 


: rem 

92 

140 PRINT"{ 2 GIU'H 3 DES}{RVS}X{OFF}- 


EVITARE" 




: rem 

127 

150 PRINT"{ 2 GIU 1 }{ 3 DES}ATTENZIONE..." 


: rem 

107 

160 PRINT"{ 3 DES}{GIU'}NON MORDERTI LA CODA 

! ! I": rem 

40 

170 PRINT" {WHT} { 2 GIU’H 22 DES} PREMI UN 

TASTO{YEL}" 




: rem 

87 

180 GETKEYAS 


: rem 

1 99 


190 PRINT"{WHT}{CLR}{ 10 GIU'}{ 8 SPAZI}{YEL}{RVS}j{OFF} 

{whtJoystick o {yel}{rvs}t{off}{wht}astierà ?{whtJ" 

: rem 1 55 

200 GETJ$ : IFJ$="J"ORJ$="T"THEN21 0 :ELSEGOTO200 : rem 182 
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210 

IFJ$="J"THENGOTO300 

: rem 

86 

220 

IFJ$ = "T"THEN2 30 

: rem 

42 

230 

PRINT"{CLR}{ 4 GIU'}{ 3 DES}IMPOSTA I SIMBOLI CON 

I Q 


UALI VUOI" 

: rem 

241 

240 

PRINT"{GIU'}{ 3 DES}MUOVERE IL BRUCO":PRINT: 

:PRINT: 

: PRI 


NT 

: rem 

87 

250 

PRINT"DESTRA{ 3 SPAZI}? ";rGETKEYBl$ :PRINTBl$ 




: rem 

157 

260 

PRINT"SINISTRA ? "; :GETKEYB2S:PRINTB2$ 

: rem 

74 

270 

PRINT"SU{ 7 SPAZI}? "; :GETKEYB3$:PRINTB3$ 

: rem 

136 

280 

PRINT"GIU' { 5 SPAZI}? "; :GETKEYB4$:PRINTB4$ 

: rem 

239 

290 

GOTO320 

: rem 

105 

300 

Bl$="6":B2$="D":B3$="5":B4$="R" 

: rem 

168 

310 

PRINT"{GIU'}{ 8 DES}(PORTA 1)" 

: rem 

102 


320 CHAR,15,23,"VELOCITA' (1/9) ? ":GETKEYVLS: IFASC(VL$)< 
490RASC(VL$)>57GOTO320 : rem 29 

330 PRINTVL$:VL=VAL(VL$)-1 :FORT=1TO900:NEXT : rem 242 
340 PM=1 : A$ = "" : Al $= "" : LX = 1 9 : LY=1 3 : KX=1 9 : KY=1 3 :VT= 3 rCOLORO 
,10,2 : rem 67 

350 COLOR4,2,7 rSCNCLR :rem 11 

360 FORT=1T02:PRINT"{RVS}{ 40 SPAZI}{OFF}":NEXT : rem 63 
370 PRINT"{HOME}{ 14 DES}{RVS}QUADRO:"PM"{OFF}" : rem 159 
380 PRINT"{HOME}{ 28 DES}{RVS}PUNTI :"PQ"{OFF}" : rem 254 

390 PRINT"{HOME}{ 5 DES}";:FORT=lTOVT:PRINT"{RVS}Q{OFF}"; 

:NEXT : rem 176 

400 FORT=1T05:SC=INT(RND(8)*879)+31 92 :IFSC=3072 + 1 9 + 1 3*40T 
HEN400 : rem 116 


410 POKESC,88:POKESC-1024,119:NEXT 
420 PP=0:VOL8 

430 FORT=1TOPM:PU=INT(RND(8)*879)+3192:POKEPU, 
024,82:NEXT 

440 K=3072+KX+KY*40:L=3072+LX+LY*40:IFPEEK(L)= 
=88GOTO570 

450 IFPEEK(L)=83THENGOTO670 

460 POKER,87 :POKEK- 1024,85 

470 POKEL,81 :POKEL-1024,70:KX=LX:KY=LY 

480 FORT=OTOVL*30:NEXT 

4 90 IFJ$ = "T"GOTO500 
500 Al$=A$ 

510 GETA$:IFA$=""THENA$=Al$ 

520 IFA$=B3$ANDLY>2THENLY=LY-1:GOTO440 
530 IFA$ =B4$ANDLY< 24THENLY=LY+1:GOTO440 
540 IFA$ =B2$ANDLX>0THENLX=LX-1:GOTO440 
550 IFA$ = Bl$ANDLX< 39THENLX=LX+1 :GOTO440 
560 A$=Al$:GOTO440 

570 POKEK,87 :FORT=1T02:POKEL,102 :SOUND3,100,10 

5 80 SOUND3,300,20 :NF.XT: FORT= 1 TO600 : NEXT 

590 VT= VT-1 : IFVTOOTHENLX=1 9:LY=1 3:KX=1 9:KY = 1 3 
"":GOT03 50 


:rem 41 
: rem 6 
83 :POKEPU-1 
:rem 199 
870RPEEK(L) 
:rem 239 
: rem 151 
:rem 240 
:rem 101 
: rem 143 
:rem 61 
:rem 205 
: rem 241 
:rem 104 
:rem 154 
:rem 100 
:rem 156 
:rem 222 
:POKEL,230 
:rem 147 
:rem 180 
: A$ = " " : A1 $ = 
:rem 35 
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600 

61 0 
620 
630 
640 
650 

660 

670 

680 

690 

700 

710 


PRINT" {CLR} { 5 GIU'H 3 DES } HAI PERSO !!!": PRINT" 


{GIU’}{ 3 DES}SEI ARRIVATO AL"PM"QUADRO" 

: rem 

90 

PRINT"{GIU'}{ 3 DES}CON"PQ"PUNTI{ 6 GIU'}" 

: rem 

1 39 

PRINTTAB(88)"GIOCHI ANCORA (S/N) ?" 

: rem 

200 

GETQ$:IFQ$=""THEN630 

: rem 

11 7 

IFQ$="S"THENPQ=0:GOT0340 

: rem 

1 85 

IFQ$="N"THENSCNCLR:PRINT"{GIU 1 }{DESjCIAO!!" 

: END 



: rem 

10 

GOTO630 

:rem 

1 1 0 

SOUND2,800,2:PP=PP+1:PQ=PQ+1 

:rem 

1 62 

PRINT"{HOME}{ 28 DES}{RVS}PUNTI :"PQ"{OFF}" 

: rem 

1 

IFPPOPMTHEN460 

: rem 

174 

SCNCLR:PRINTTAB(255)"BRAVO!!":PM=PM+1 :FORT= 

ITO!000:NE 

XT 

: rem 

1 80 


A$ = " " : Al $ = " " :LX=20:LY=12:KX=20:KY=12 :SCNCLR:G0T0350 

:rem 207 


A 

f 

|One on One! 5 Joystick 


Ecco una variopinta versione di 
uno dei più classici videogames, 
che molti di voi sicuramente cono¬ 
sceranno: due giocatori, entrambi 
forniti di joystick, spostano la pro¬ 
pria racchetta a destra e a sinistra 
disputando una specie di partita a 


ping pong. Alle spalle dei giocatori 
ci sono dei muri; quando non si 
riesce ad intercettare la palla, que¬ 
sta va a demolire parte del muro. 
Risulta vincitore colui il quale per 
primo riesce a perforare il muro av¬ 
versario. 


10 

REM ONE ON ONE PER C16 


: rem 

55 

20 

COLORO,1:COLOR4,10,3:COLORl 

,2,7:VOL8 

: rem 

85 

30 

PRINT"{RVS}{CLR}{ 13 DES}{ 

10 GIU'} ONE ON 

ONE! 1 

{OFF} 


II 


: rem 

49 

40 

PRINT"{RVS}{ 7 DES}{ 3 GIU’ 

}PREMI LA BARRA 

PER GIOCARE 


{OFF}"; 


: rem 

101 

50 

IFPEEK (2038) O60THEN50 


: rem 

171 

60 

GOTO330 


: rem 

53 

70 

AL*15:GOTOl60 


: rem 

161 

80 

OL= AL 


: rem 

205 

90 

AL=AL+F2:IFAL=OLTHENl50 


: rem 

86 

100 IFAL< 4THENAL= 3 


: rem 

73 

110 POKEG+OL,32:POKEG+OL+l,32: 

POKEG+OL+2,32 :POKEG+OL+3,32 


:rem 139 
:rem 239 


120 IFAL>=33THENAL=33 
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130 

1 40 

1 50 
1 60 
170 
1 80 
1 90 
200 
210 
220 
230 
240 


POKEG+AL, 22 8:POKEG+AL+l,228 :POKEG+AL+2, 
. 228 


. . rUMluTrt Lt j 

:rem 49 

:POKEG+AL+D+1,71 :POKEG+AL+2+D,71 :P0KEG+A 

:rem 30 


, 228 

POKEG+AL+D,71 
L+3+D,71 
RETURN 

ON( (JOY(1)AND7)/3 + 1)GOTOl 90,170,180 
F2 = 3:GOT080 
F2»-3:GOTO80 
F2=0:GOT080 
G0TO290 
0G=AR 

AR=AR+Fl :1FAR=OGTHEN2 80 
IFAR<4THENAR=3 :rem 89 

POKEF+OG,32:P0KEF+0G+1,32 :POKEF+OG+2,32 :POKEF+OG+3,32 

: rem 119 


: rem 
: rem 
:rem 
: rem 
: rem 
:rem 
: rem 
: rem 
: rem 


11 8 
110 
91 
137 
90 
102 
249 
145 
89 


250 IFAR>=33THENAR=33 


: rem 
: rem 


9 
255 


260 POKEF+AR, 227:POKEF+AR+l,227 :POKEF+AR+2,227 :POKEF+AR+3 



,227 

:rem 

69 

270 

POKEF+AR+D,71 :POKEF+AR+D+1,71 :POKEF+AR+ 2+D, 

71 :POKEF+A 


R+3+D,71 

: rem 

54 

280 

RETURN 

:rem 

122 

290 

ON((JOY(2)AND7)/3+1)GOTO320,300,310 

:rem 

100 

300 

Fi=3 :GOT0210 

: rem 

128 

31 0 

FI=-3:G0T0210 

: rem 

174 

320 

Fi=0:GOT0210 

: rem 

127 

330 

B=3074:E=3108 :D = -1 024 :COLORO,2,7 :COLOR4,2,7 

:SCNCLR:C= 


3274:F=3308 

: rem 

134 

340 

F=3072+40*6:SCR=3072:G=3072+40*14:COLORl,10 

,3 




: rem 

126 

350 

PRINT"{ 14 DES}GIOCATORE 2" 

: rem 

206 

360 

PRINT"{ 19 GIU'}{ 14 DES}GIOCATORE l(HOME}” 

: rem 

36 

370 

COLORI ,2,7:FORL=lT04:B=B + 40:E=E+4 0 

: rem 

215 

380 

FORI=BTOE:POKE1,160:POKEI+D,((8*RND(1))+2)+64:NEXT 



: rem 

201 

390 

NEXT:IFZ=1THEN410 

:rem 

48 

400 

B=3674:E=3708:Z=1:GOTO370 

: rem 

1 32 

410 

FORJ=3072TO3885STEP40:POKEJ,127:POKEJ+37,127:POKEJ+D, 


0:POKEJ+37+D,0 :NEXT 

: rem 

123 


420 FORJ = 3073TO388 5STEP40 :POKEJ,127:POKEJ+3 7, 1 27:POKEJ + D, 

0:POKEJ+37+D,0:NEXT :rem 125 

430 REM SCHERMO & BORDO : rem 40 

440 FORC = lTO30STEP4:POKE34 76+C,90 :POKE3476+C+D,0:NEXT 

: rem 213 

450 POKEG+1 5, 228:POKEG+l 5 + 1,228:POKEG+l 5+2,228:POKEG+l 5+3 
,228 :rem 154 

460 POKEG+15+D,71:POKEG+l5+D+l,71:POKEG+l5+D+2,71:POKEG+l 
5+D+3,71 :rem 135 

470 POKEF+15,227:POKEF+15+1,227:POKEF+l5+2,227:POKEF+l5+3 
,22 7 : rem 148 

480 POKEF+15+D,71:P0KEF+15+D+l,71:POKEF+l5+D+2,71:P0KEF+1 
5+D+3,71 :rem 133 
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490 

Y=11:DX=1:DY=1:X=10 

: rem 

78 

500 

IFRND(1)<.5THENDX=-1 

:rem 

1 43 

51 0 

IFRND(1)<.5THENDY=-1 

: rem 

145 

520 

AR=15:AL=15 

: rem 

55 

530 

POKE3072+X+40*Y,32:POKE3072+X+40*Y+D,0 

: rem 

78 

540 

X=X+DX:Y=Y+DY:POKE3072+X+40*Y,81:POKE3072+X+40*Y+D,72 



:rem 

107 

550 

IFL=160ANDOD=160THEN570 

:rem 

78 

560 

IFL=160THENDY=-DY:GOSUB6 4 0 

:rem 

113 

570 

G0SUB2 00 :GOSUBl60 :IFY=0ORY=2 3THEN650 

:rem 

244 

580 

0D=L 

: rem 

1 85 

590 

L=PEEK(SCR+X+DX+(Y+DY) *40) 

: rem 

250 

600 

IFL=32THEN530 

: rem 

21 8 

610 

IFL=127THENDX=-DX:GOSUB640:GOTO590 

treni 

127 

620 

IFL=22 80RL=227ORL=90THENDY“-DY:GOSUB64 0 

trem 

203 

630 

GOTO530 

treni 

106 

640 

S0UND3,800,2:RETURN 

t rem 

1 46 

650 

COLORI,1 

t rem 

1 68 

660 

IFY<1THENPRINT"{ 9 GIU'H 8 DES}{RVS}HA 

VINTO 



{ 2 SPAZI}IL GIOCATORE 1{OFF}":GOT0680 

t rem 

1 63 

670 

IFY>22THENPRINT" { 9 GIU'H 8 DES}{RVS}HA 

VINTO 



{ 2 SPAZI}IL GIOCATORE 2{OFF}":GOTO680 

: rem 

21 8 

o 

co 

V£> 

PRINT"{ 11 GIU’}{ 10 DES}{RVS}GIOCHI ANCORA? (S/N) 



{OFF}" 

: rem 

1 83 

690 

IFPEEK(2038)=13THEN720 

: rem 

21 8 

700 

IFPEEK(2038)=39THEN730 

t rem 

219 

710 

GOTO690 

trem 

112 

720 

IFPEEK(2038)=13THENCOLOR1,2,7:RUN 

: rem 

21 9 

730 

POKE239,0:SCNCLR:END 

: rem 

211 



trem 

0 



- 


§STM 


Vie 20 


STM è una abbreviazione inslese 
che indica la memoria breve, cioè 
la capacità di ricordare le cose av¬ 
venute poco tèmpo prima. Questo 
semplice programma vi dà la pos¬ 
sibilità di migliorare la vostra me¬ 
moria breve in maniera divertente. 
All'inizio vi viene chiesto se volete 
cimentarvi con le lettere dell'alfa¬ 
beto, con le cifre da 0 a 9, oppure 
solamente con i due simboli 0-1. 


Dopo che avete fatto la vostra 
scelta, vi viene presentata per un 
tempo molto breve una sequenza 
di numeri o di lettere, che dovete 
imprimervi bene nella mente. Do¬ 
vrete poi digitare i simboli nello 
stesso ordine in cui vi sono stati 
presentati. Se la risposta sarà esat¬ 
ta, vi verrà mostrata una nuova se¬ 
quenza più lunga della preceden¬ 
te; si comincia infatti con un solo 


io 





caràttere, e ogni voltò là sequenza 
si allunga di un simbolo. Potrete 
anche gareggiare con i vostri amici: 


vincerà chi avrà ricordato la se¬ 
quenza più lunga impiegando il 
minor temoo possibile. 


io REM **STM** 

20 POKE36879,95 :PRINT"{CLR} { 5 DES}{RVS}{BLK} * 


30 
40 
50 
60 
70 
80 
90 
100 
1 1 0 
120 
1 30 
1 40 
1 50 
1 60 
1 70 
1 80 

1 90 
200 
210 
220 
230 
240 

2 50 
260 
270 
280 
290 
300 
31 0 
320 
330 
340 

350 
360 
370 
380 
390 
400 
41 0 
420 


}VUOI GIOCARE CON. 
LETTERE ?" 

NUMERI ?" 

SOLO CON 0-1 ?" 
VUOI TERMINARE 


?.. 


PRONTO <RETURN>";K$ 


PRINT"{ 2 GIU 
PRINT"{GIU'}1 
PRINT"{GIU*}2 : 

PRINT"{GIU'}3 : 

PRINT"{GIU'}4 : 

GETA$ 

ONVAL(A$)GOTOl10,120,130,420 
GOTO80 

A=26:B=65:GOTO140 
A=10 :B = 4 8 :GOTOl4 0 
A=2:B=48 

INPUT"{ 2 GIU'}SEI 
IFK$=" "THEN150 
C=1:TT=300 
T=TI:TA=T 
A$ ="":PRINT 
FORD = l TOC 

B$=CHR$(B+RND(0) *A) 

PRINTBS 

A$=A$+B$ 

FORE=1TOTT:NEXT 
PRINT"{SIN} 

NEXT 

PRINT 

FORW=lT02 50 :NEXT:PRINT"{CLR}" 

REM* *RISPOSTA* * 

POKEl98,0:INPUT"RISPOSTA";AN$ 

IFAN$=A$THEN4 00 

PRINT"{GIU 1 }{RVS}SBAGLIATO!{GIU'}" 

PRINT"PUNTI :";C 

PRINT"{GIU'}LA RISPOSTA ERA:",A$ 

PRINT"{GIU'}TEMPO:";STRS(INT((TA-T)/.6)/I00) 

PRINT"{ 2 GIU'}GIOCHI ANCORA (S/N)?" 

GETAS 

IFA$ = "S"THEN140 

IFA$O"N"THEN360 

GOTOl0 

C=C+1:TA=TI 

GOTOl80 

END 


:rem 

225 

S T M * " 

: rem 

85 

: rem 

253 

: rem 

5 

: rem 

194 

: rem 

1 59 

: rem 

224 

: rem 

173 

: rem 

171 

: rem 

50 

: rem 

164 

: rem 

159 

: rem 

105 

: rem 

82 

: rem 

21 8 

: rem 

250 

: rem 

38 

: rem 

70 

: r em 

25 

: rem 

1 96 

: rem 

134 

: rem 

44 

: rem 

243 

: rem 

63 

: rem 

21 4 

: rem 

37 

: rem 

150 

: rem 

155 

: rem 

57 

: rem 

58 

: rem 

80 

: rem 

174 

: rem 

29 

;" SECOND 

: rem 

91 

: rem 

82 

: rem 

222 

:rem 

38 

: rem 

99 

: rem 

54 

: rem 

92 

: rem 

103 

: rem 

109 
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3K Ram-Joystick 


£3 Gli spiriti 


Joe ha deciso di diventare esplora¬ 
tore, sesuendo l'esempio di un suo 
amico che si è arrichito enorme¬ 
mente con tale professione. 

Allora, recatosi in Egitto, è entrato 
in una piramide non ancora esplo¬ 
rata perché abitata, a quanto dico¬ 
no antiche leggende, da fantasmi 
assetati di sangue. 

Appena entrato vede davanti a sé 
mucchietti d'oro sparsi qua e là, 
ma appena ne raccoglie uno ecco 
tre famelici fantasmi che lo inse¬ 
guono. 

Perché non aiutarlo? 


Ogni mucchi etto d'oro raccolto 
frutta 10 punti. 

Il terreno nel l'interno della pirami¬ 
de cede molto facilmente e crea 
delle buche nere, nelle quali biso¬ 
gna far cadere i fantasmi e dalle 
quali bisogna tenersi ben lontani, 
perché se si cade dentro una di 
esse, si diventa fantasmi. 

Se si riesce a far cadere tutti i fanta¬ 
smi nelle buche, si riceve un bonus 
di 50 punti, e si passa al livello suc¬ 
cessivo, dove ci sarà un fantasma 
in più a seguire Joe. Ed ora buon 
divertimento!! 


100 PRINTCHRS(14 7) CHR$(5):POKE36879,40 : rem 157 

110 PRINT"{ 4 GIU'}"SPC(5)"GLI{ 2 SPAZI}SPIRITI": rem 87 
120 REM PRESENTAZIONE :rem 94 

130 GOSUBl 250 : rem 220 

140 FORA=l5TOOSTEP-.4:POKE36878,A:POKE36876,238+A:POKE368 
75,239+A:POKE36874,238+A :rem 230 

150 FORT=lTOl00 :NEXT:POKE36876,0:POKE36875,0:POKE36874,0: 

NEXT : rem 21 9 

160 POKE36878,1 5:POKE36876,1 30 :POKE36875,1 31 :POKE36874,1 9 

4 :rem 21 

170 POKE52,27 :POKE56,27:CLR: FORI=7168T07679:POKEI,PEEK(1+ 
25600):NEXT :rem 130 

180 GOSUBl370 :rem 228 

190 GETAS:IFAS<>"S"ANDA$<>"N"THENl90 :rem 43 

200 IFA$="N"THENPRINT"{GIU'}{ 5 DES}ATTENDERE ..":GOTO290 

:rem 253 

210 POKE36876,0:POKE36875,0 :POKE36874,0 :rem 207 

220 PRINTCHRS(147)" *** GLI{ 2 SPAZI}SPIRITI *** " 

:rem 79 

230 PRINT"LO SCOPO DEL GIOCO E' DI RACCOGLIERE PIU' 

{ 3 SPAZI}ORO POSSIBILE SENZA{ 2 SPAZI}" 

12 


: rem 


20 





240 PRINT"FARSI PRENDERE DAI 3{ 2 SPAZI}FANTASMI CHE LO 
{ 7 SPAZI}CUSTODISCONO." : rem 187 

250 PRINT"IL TERRENO FRANA SPES-SO FORMANDO DELLE 

{ 5 SPAZI}BUCHE, UTILISSIME PER" : rem 204 

260 PRINT"FARCI CADERE I FANTAS-MI, MA LETALI ANCHE 

{ 3 SPAZI}PER TE, PERCHE' TI{ 3 SPAZI)" : rem 54 

270 PRINT"TRASFORMANO IN{ 8 SPAZI}FANTASMA, TERMINANDO 

{ 2 SPAZI)LA PARTITA." : rem 133 

2 80 PRINT"ED ORA BUONA FORTUNA." : rem 152 

290 POKE36876,0:POKE36875,0:POKE36874,0 :rem 215 

300 REM L.M. LETTURA JOYSTICK : rem 253 

310 A= 0 :FORJ = 8 2 8 TO 912:READX:POKEJ,X:A=A+X:NEXT:READX:IFA< 
>XTHENPRINT"(YEL)ERRORE NEI DATI": END : rem 171 

320 REM RIDEFINISCE I CARATTERI :rem 134 

330 F0RC=7432T0752 7 : READA :POKEC,A :NEXT : rem 110 

340 REM L.M. LETTURA JOYSTICK : rem 1 

350 PRINT"{GIU 1 }{DES){RVS}* PREMERE UN TASTO *{OFF}" 

:rem 205 

360 GETAS:IFA$ = ""THEN360 : rem 85 

370 SYS828:PRINTCHR$(147):POKE36869,255 :rem 49 

380 REM VARIABILI :rem 18 

390 A=PEEK(36866)ANDl28:SC=4 *A+64 *(PEEK(36869)ANDl12) :CO= 
37888+4*A : rem 153 

400 DIMX (4) ,Y (4) :rem 85 

410 MA=0:N=22:HU=43:SP=32:TW=21:TE=10 :rem 169 

420 Gl=41:G2=G1:G3=G1 : rem 129 

430 Si=36876:S2=S1+1:V=S2+1 :rem 240 

440 X(4)=1 0:Y(4)=10:D=1 :G=43:K=1:M=2:0=3:P=4:Q=5: rem 180 
450 JN=841:JS=842:JW=843:JE=844:ZE=0:GD=44 :rem 202 

460 REM INIZIALIZZA LO SCHERMO : rem 120 

470 FORL=lTO50:R=INT(RND(1)*440+44):POKECO+R,7:POKESC+R,4 
4:NEXT :rem 104 

4 80 FORT=1T03:X(T)=INT(RND(1)*20) :Y(T)=INT(RND( 1 )*18 + 2) 

:rem 196 

490 IFPEEK(SC+X(T)+22*Y(T))<>32THENT=T-1:NEXTT :rem 53 
500 POKECO+X (T) +22*Y (T) , 5-.POKESC+X (T)+22*Y (T) ,41 : NEXT 

:rem 126 

510 POKECO+X(4)+22*Y(4) ,7:POKESC+X(4)+22*Y(4) ,42:rem 137 

520 PRINT"{HOME){CYN}!#$%{WHT}"SE:PRINT"{HOME){CYN)"SPC(1 
l)"s*!#$%{WHT)"HI : rem 78 

530 REM ROUTINE PRINCIPALE :rem 137 

540 FORT=lTOO:OX(T)=X(T):OY(T)=Y(T):NEXT:MX=X(P):MY=Y(P) 

: rem 91 

550 Z=(KAND(PEEK(JN)=ZE))+(MAND(PEEK(JS)=ZE))+(OAND(PEEK( 
JW)=ZE))+(PAND(PEEK(JE)=ZE)) : rem 106 

560 ONZGOSUB700,720,740,760 :rem 254 

570 R=INT(RND(K)*0+K):ONRGOSUB790,860,930 :rem 177 

580 IFGl=GANDG2=GANDG3=GTHENl120 :rem 188 

590 IFRND(1)<.1THENU=INT(RND(K)*4 4 0+GD):POKECO+U,0 :POKESC 
+U,G trem 236 
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600 

IFPEEK(SC+X <P)+N*Y(4) )=GDTHENGOSUBl070 

: rem 

21 

61 0 

IFPEEK(SC+X(P)+N*Y(4))=HUTHENl170 

:rem 

169 

620 

IFMA=KTHEN1170 

: rem 

53 

630 

POKECO+X(K)+N* Y(K) ,Q:POKESC+X(K)+N*Y(K) ,G1 

: rem 

232 

640 

POKECO+X(M)+N*Y(M),Q:POKESC+X(M)+N*Y(M),G2 

: rem 

242 

650 

POKECO+X(0)+N*Y(0) f Q:POKESC+X(0)+N*Y(O),G3 

: rem 

252 

660 

POKECO+X(P)+N* Y(P) ,6 :POKESC+X(P)+N*Y(P) ,42 

: rem 

21 0 

670 

IFZ=0THEN530 

: rem 

1 86 

680 

POKESC+MX+N*MY,SP 

: rem 

75 

690 

GOTO530 

:rem 

1 1 2 

700 

Y(P)=Y(P)-K:IFY(P)<MTHENY(P)=M 

: rem 

63 

710 

RETURN 

: rem 

1 20 

720 

Y(P)=Y(P)+K:IFY(P)>TWTHENY(P)=TW 

: rem 

253 

730 

RETURN 

: rem 

1 22 

740 

X(P)=X(P)-K:IFX(P)<ZETHENX(P)=ZE 

:rem 

227 

750 

RETURN 

: rem 

1 24 

760 

X(P)=X(P)+K:IFX(P)>TWTHENX(P)=TW 

: rem 

253 

770 

RETURN 

:rem 

1 26 

780 

REM MUOVE I FASTASMI 

: rem 

1 76 

790 

IFG1=GTHENRETURN 

: rem 

58 

800 

X(K)=X(K)+D*SGN(X(P)-X(K)): X(K)=X(K)-SGN(X(K))-SGN(X( 


K)-N) 

: rem 

55 

81 0 

Y(K)=Y(K)+D*SGN(Y(P)-Y(K)):Y(K)=Y(K)-SGN(Y(K))-SGN(Y( 


K)-N) 

: rem 

64 

820 

IFPEEK(SC+X(K)+N*Y(K))=GTHENGl=G:GOSUBl000 

:rem 

22 

83 0 

IFPEEK(SC+X(K)+N*Y(K))=42THENMA=K 

: rem 

21 3 

840 

POKESC+OX(K)+N*OY(K),SP 

: rem 

1 33 

850 

RETURN 

: rem 

1 25 

860 

IFG2=GTHENRETURN 

: rem 

57 

870 

X(M)=X(M)+D*SGN(X(P)-X(M)): X(M)=X(M)-SGN(X(M))-SGN(X( 


M)-N) 

: rem 

76 

880 

Y(M)=Y(M)+D*SGN(Y(P)-Y(M)):Y(M)=Y(M)-SGN(Y(M))-SGN(Y( 


M) -N) 

: rem 

85 

890 

IFPEEK(SC+X(M)+N*Y(M))=GTHENG2=G:GOSUBl000 

: rem 

34 

900 

IFPEEK(SC+X(M)+N*Y(M))=42THENMA= K 

: rem 

21 5 

91 0 

POKESC+OX(M)+N*OY(M),SP 

:rem 

1 35 

920 

RETURN 

: rem 

1 23 

930 

IFG3=GTHENRETURN 

:rem 

56 

940 

X (0)=X(0)+D*SGN(X(P)-X(0)) :X(0)=X(O)-SGN(X(0))-SGN(X( 


0 ) -N) 

: rem 

88 

950 

Y (0) =Y (0) +D*SGN (Y (P) -Y (0) ) :Y(0) =Y (0)-SGN (Y (0) )-SGN 

1 ( Y ( 


0 ) -N) 

: rem 

97 

960 

IFPEEK(SC+X(0)+N*Y(0))=GTHENG3=G:GOSUBl000 

: rem 

37 

970 

IFPEEK(SC+X(0)+N*Y(0))=4 2THENMA= K 

: rem 

226 

980 

POKESC+OX(0)+N*OY(0),SP 

: rem 

1 46 

990 

RETURN 

: rem 

1 30 

1000 REM FASTASMA CADUTO NELLA BUCA 

: rem 

60 

1010 FORVO=l5TOOSTEP-1 :POKEV,VO:POKESl,160+V0*3 

:POKES2 

,16 


O+VO* 3:NEXT:SE=SE+1 0 

: rem 

85 

1020 IFSE>HITHENHI=SE 

:rem 

78 
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1 030 

PRINT"{HOME} {WHT}{ 4 DES}"SE :PRINT"{HOME}" 

'SPC (1 7) ; HI 



: rem 

66 

1 040 

POKES2,0 :POKESl ,0 

: rem 

30 

1 050 

RETURN 

: rem 

166 

1 060 

REM PRENDE L'ORO 

: rem 

204 

1 070 

FORL= KTOTE:F=INT(RND(1 )*20+234) :POKEV,TE :POKES1, 

F : NE 


XT:SE=SE+5 

:rem 

209 

1 080 

IFSE>HITHENHI=SE 

: rem 

84 

1 090 

PRINT"{HOME}{WHT}{ 4 DES}"SE:PRINT"{HOME}" 

'SPC (17) ; HI 



:rem 

72 

1 1 00 

POKESl,0:POKEV,0 

: rem 

236 

1110 

RETURN 

: rem 

163 

1 1 20 

REM VITTORIA 

: rem 

26 

1 1 30 

PRINTCHR$(147)"{YEL}{ 9 GIU'){ 5 DES}BONUS 



{ 2 SPAZI}PUNTI":SE=SE+50 

: rem 

154 

1 1 40 

FORF=15TOOSTEP-.4 :POKEV+1 ,42 :POKEV,F:POKESl,238+F:PO 


KESl-1,239+F:POKESl - 2,238+F 

: rem 

69 

1 1 50 

POKEV+1,40:NEXT:POKEV,0:POKESl,0:POKESl-l, 

0:POKESl-2 


,0 

: rem 

100 

1 1 60 

PRINTCHRS(147):GOTO420 

:rem 

76 

1 1 70 

REM FINE GIOCO 

: rem 

64 

1 1 80 

POKECO+MX+N*MY,5 :POKESC+MX+N*MY,41 

: rem 

174 

1 1 90 

FORF=250TOl30STEP-1:POKEV,15:POKESl,F:POKES2,F:POKES 


1 - 1,F+l :NEXT 

:rem 

63 

1 200 

POKESl,0 :POKESl-1,0:POKES2,0 

:rem 

195 

1 21 0 

PRINT"{HOME}{WHT}{ 2 GIU'}{ 7 DES)PECCATO! 

" : rem 

186 

1 220 

PRINT"{GIU'}{ 5 SPAZI}PREMI {YEL}FUOCO{WHT}" 




: rem 

67 

1 230 

IFPEEK(84 5)< >0THEN1230 

: rem 

11 

1240 

SE=0:PRINT"{CLR}":G0TO410 

: rem 

11 4 

1 250 

REM PAGINA DI PRESENTAZIONE 

: rem 

208 

1 260 

PRINT"{YEL}" 

: rem 

56 

1 2 70 

PRINTSPC(8)"{RVS}£{ 4 SPAZI}[<*>){OFF}" 

: rem 

54 

1 280 

PRINTSPC(7)"{RVS}£ {OFF} {RVS} {OFF} {RVS} 




{ 2 SPAZI}[<*>]{OFF}" 

: rem 

126 

1 290 

PRINTSPC(7)"{RVS}{ 2 SPAZI}{OFF}{GRN}[<K>} 

{YEL}{RVS} 


{OFF}{GRN}[<K>]{YEL}{RVS}{ 3 SPAZI}{OFF}" 

: rem 

177 

1 300 

PRINTSPC(7)"{RVS}{ 8 SPAZI}{OFF}" 

: rem 

167 

1310 

PRINTSPC(7)"{RVS}{ 3 SPAZI}{OFF}{ 2 SPAZI}{RVS) 



{ 3 SPAZI}{OFF}" 

: rem 

76 

1 320 

PRINTSPC{7)"{RVS}{ 2 SPAZI}{OFF} {RVS}{ 2 

SPAZI} 



{OFF} {RVS}{ 2 SPAZI}{OFF}" 

: rem 

241 

1 330 

PRINTSPC(7)"{RVS}{ 8 SPAZI}{OFF}" 

: rem 

170 

1 340 

PRINTSPC(7)"{RVS}{ 2 SPAZI}{OFF} {RVS}{ 2 

SPAZI} 



{OFF} {RVS}{ 2 SPAZI}{OFF}" 

: rem 

243 

1 3 50 

PRINTSPC(8)"{RVS} {OFF}{ 2 SPAZI}{RVS} {OFF} 



{ 2 SPAZI}{RVS} {OFF}" 

: rem 

245 

1 360 

RETURN 

:rem 

170 

1 370 

REM PRESENTAZIONE 

: rem 

1 50 

1 380 

PRINT"{WHT}" 

: rem 

162 


15 


1 390 
1400 

1 41 0 
1 420 
1 430 
1 440 
1 450 

1 460 
1 470 

1 4 80 
1 490 

1 500 

1 51 0 
1 520 

1 530 
1 540 

1 550 
1 560 
1 570 
1 580 
1 590 


FORX=l5T01STEP-1:READA$:IFA$ = "*"THENRETURN : rem 
FORT=OTOX:PRINTTAB(T)" ";A$:PRINT"{ 2 SU} 

REM DATI PER IL TITOLO 
DATA?, , ,I,N,0,I,Z,U,R,T,S,I,* 

REM DATI L.M. 

DATAI 20,169,78, 1 41,20,3,169,3,1 41,21,3,88 
DATA96,0,0,0,0,0,169,0,141,19,145,169,127,141 

DATA34,1 45,1 73,1 7,14 5,41 ,4,1 41 ,73,3,173 
DATAI 7, 1 4 5,41 , 8,1 41 ,74,3, 1 73,1 7,1 45, 41 , 1 6, 1 41 

DATA75,3, 1 73,32,145,41 , 128,141,76,3, 1 73 
DATAI 7,145,41,32,141,77,3,169,255,141, 34,145 


DATAI 69,1 28,1 41 , 1 9, 1 45, 76,1 91 ,234,0,0,0,0,71 67 

REM DATI CARATTERI 
DATA251,130,130,250,10,10,251,0,0,0,0,0,0,0,0,0,239, 
8,8,8,8,8,239,0 

DATAI 90,1 62,1 62,1 90,1 64,162,162,0 
DATA248,128,130,224,130,128,248,0,138,136,138,250,13 
8,138,138,0,0,0,0,124,0,0,0,0 
DATA255,255,255,255,255,255,2 55,255 
DATA60,86, 87,255,231 ,21 9, 1 09,36 
DATA24,24,0,56,68,16,40,40 
DATAO,60,126,126,126,126,60,0 
DATAO,0,0,8,44,53,95,251 


1 : rem 

192 

1 :NEXT: 

NEXT 

: rem 

174 

: rem 

35 

: rem 

166 

: rem 

195 

: rem 

3 

1 41 

: rem 

185 

: rem 

162 

141 

: rem 

200 

: rem 

169 

45 

: rem 

162 

7167 

: rem 

251 

: rem 

108 

0,0,0, 

239, 

: rem 

187 

:rem 

1 22 

138,250,13 

: rem 

142 

: rem 

249 

:rem 

46 

: rem 

31 

: rem 

172 

:rem 

1 87 


% 

Vg 

£ Mystery Speli 


Come viene echeggiato dal nome, 
questo è un gioco didattico che se¬ 
gue come modello la serie di car¬ 
tucce didattiche sviluppate dalla 
Texas Instruments secoli fa 
Si tratta di un rifacimento del cele¬ 
bre "HangMan" (o "Impiccato"), 
ed ha in più una grafica veramente 
pregevole, associata ad un ottimo 
sound. 

Insomma, un ottimo programma 


che vi permetterà di sviluppare la 
vostra capacità di intuizione. 

Il programma vTpermette varie op¬ 
zioni, tra cui istruzioni dettagliate, 
e creare una lista': quest 1 ultima, vi 
permette di crearvi la vostra lista 
di parole che volete indovinare, e 
di memorizzarla sotto forma di "fi¬ 
le" sia su cassetta che su disco, do¬ 
ve potrete la volta successiva ri¬ 
chiamarla in memoria. 
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1 00 REM 
110 REM 

1 20 DIM A$(26) ,B$(20) 

130 ON ERROR 160 

140 CALL IN IT :: CALL LOAD(-31 878,13) 

150 REM 

160 DISPLAY AT(12,5)ERASE ALL:"ASPETTA UN ATTIMO..." :: G 
OTO 790 

170 DISPLAY AT(7,1)ERASE ALL BEEP:"PREMI PER": : :" 1 

= ISTRUZIONI”: :" 2 = MYSTERY SPELL": 3 = FINE 

DEL PROGRAMMA" 

180 DISPLAY AT(23,3):"PREMI IL TASTO ALPHA LOOK" :: CALL 
KEY(0,K,S) : : IF S = 0 OR(K<49 OR K>51)THEN 180 :: ON K-48 G 
OTO 980,200,190 

190 DISPLAY AT(12,3)ERASE ALL BEEP:"GRAZIE PER AVER GIOCA 
TO," :: DISPLAY AT(14,14-LENiL$)/2 ): L$ :: STOP 
200 DISPLAY AT(7,1)ERASE ALL BEEP:"SCEGLI UNA LISTA DI PA 
ROLE:": : A = PAROLE IN MEMORIA": :" B = CREA UN 

A LISTA" 

210 CALL KEY(0,K,S): : IF S = 0 OR(K<65 OR K>66)THEN 210 :: 

IF K=66 THEN 230 

220 PSW=1 :: GOTO 240 

230 PSW=0 :: GOTO 1620 

240 CALL CLEAR :: RESTORE 940 :: GOTO 930 
250 CALL SPRITE(#2,120,2,78,121,0,0):: CALL MAGNIFY(3) : : 
CALL SPRITE(#4,136,16,8,128,0,1):: CALL SPRITE(#3,140,2,8 
,128,0,-2) 

260 DISPLAY AT(5,9):"MYSTERY SPELL" :: T=200 :: GOSUB 105 
0 : : IF PSW=1 THEN GOTO 1860 

270 DISPLAY AT(19,1)BEEP:" IL TUO NOME, PREGO?" :: DISPLA 
Y AT(23,1):"SCRIVI IL NOME E PREMI ENTER" 

280 ACCEPT AT(5,9)SIZE(14):L$ :: CALL HCHAR(5,7,32,22) 

290 REM 

300 DISPLAY AT(19,1)BEEP:"SCEGLI IL LIVELLO DI GIOCO" 

310 DISPLAY AT(23,1) :" 1) FACILE 2) DURO" :: CALL KEY 

(0,K,S): : IF S = 0 OR K>50 OR K<49 THEN 310 :: IF K=49 THEN 
ER=7 ELSE ER= 5 

320 FOR SP = 5 TO 13 :: CALL DELSPRITE(#SP): : NEXT SP 
330 DISPLAY AT(19,1):" A B C D E F G H I J K L M" DISP 
LAY AT(23,1)BEEP:" NOPQRSTUVWXYZ" :: RANDOMIZ 
E 

340 CALL HCHAR( 5,3,32,28) :: W$ =B$(INT(20*RND)+1) : : F=LEN( 
W$): : FOR 1 = 1 TO F : : DISPLAY AT(5,2*1 + 14-F):" " :: NEXT 
I :: Y=0 :: SP=13 

350 CALL KEY(0,K,S): : IF S=0 OR(K<65 OR K>90)THEN 350 ELS 
E C= 1 21 

360 IF K<78 THEN R=128 ELSE R=160 

370 CC=((K-64)*16+16-208*INT((K-64)/14))/8 :: CALL GCHAR( 
(R+24)/8,CC,X): : IF X=32 THEN 380 ELSE 400 
380 DISPLAY AT(16,14-(8+LEN(L$))/2)SIZE ( 8+LEN ( L$ ))BEEP:"G 
UARDA,";L$:: DISPLAY AT(17,1):" CHE L’HAI GIÀ' PROVA 
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TA" 

390 FOR D=1 TO 500 :: NEXT D :: CALL HCHAR(16,1,33,64): : 
GOTO 350 

400 V=12 :: H=0 :: GOSUB 560 

410 IF K<72 OR(K>77 AND K<8 5)THEN H=-12 ELSE H=12 
420 V=0 :: C=(K-64)*1 6+4-208*INT((K-64)/l4): : GOSUB 560 
430 X=0 :: CALL HCHAR((R+2 4)/8,(C+l2)/8,32): : FOR 1 = 1 TO 
F : : IF ASC(SEG$(W$,1,1))<>K THEN 460 
440 CALL PATTERN(#2,124) : : GOSUB 590 

450 CALL PATTERN(#2,120): : DISPLAY AT(5,2*1 + 14-F)SIZE(-1 ) 

:CHR$(K): : X=1 :: Y=Y+1 

460 NEXT I :: IF X=1 THEN 480 

4 70 CALL PATTERN(#2,128): : GOSUB 630 :: CALL PATTERN(#2,1 
20) 

480 H=-H : : C=121 :: GOSUB 560 

490 V=-12 :: H=0 :: R=78 :: GOSUB 560 

500 IF•Y=LEN(W$)THEN GOSUB 750 ELSE 510 :: GOTO 520 

510 IF ER=1 THEN GOSUB 720 ELSE 350 

520 DISPLAY AT(23,1)BEEP:" UN'ALTRA PAROLA? (S/N)” 

530 CALL KEY(0,K,S): : IF S=0 OR K<>83 AND K<>78 THEN 530 

: : IF K=83 THEN 300 

540 CALL DELSPRITE(ALL): : GOTO 170 

550 REM 

560 CALL MOTION(#2,V,H) 

570 CALL COINC(#2,R,C,4,Z) : : IF Z=0 THEN 570 ELSE CALL MO 
TION(#2,0,0): : CALL LOCATE(#2,R,C):: RETURN 

5 80 REM 

590 B=8*(2*1 + 14-F): : CALL SPRITE(#1,132,14,R,C,(32-R)/8,( 
B-C)/8) 

600 J=2~(1/I2) : : FOR A=1 TO 25 :: CALL SOUND(-40,220*j“A, 
1): : NEXT A 

610 CALL COINC (#1,32,B,6,Z): : IF Z = 0 THEN 610 ELSE CALL D 
ELSPRITE(# 1 ): : RETURN 
620 REM 

630 SP=SP-1 :: ER=ER-1 :: IF ER>4 THEN RR=80 ELSE RR=50 

640 IF ER=6 OR ER=4 THEN C=52 

650 IF ER=5 OR ER=1 THEN C=188 

660 IF ER=3 THEN C=110 

670 IF £R=2 THEN C=132 

680 CALL SPRITE(#SP,140,2,1,120,(RR-1)/8, (C-120)/8) 

690 J=2~(1/12) : : FOR A=25 TO 1 STEP-1 :: CALL SOUND(-40, 
440*J~A,1):: NEXT A 

700 CALL COINC(#SP,RR,C,6,Z): : IF Z = 0 THEN 700 ELSE CALL 
MOTION(#SP,0,0): : CALL LOCATE(ISP,RR,C):: CALL PATTERN(#S 
P f 100): : RETURN 
710 REM 

720 CALL HCHAR(19,3,32,28):: DISPLAY AT(19,15-(8+LEN(L$)) 
/2):"SPIACENTE, ";L$;"," 

730 DISPLAY AT(23,1)BEEP:"L'UCCELLO QUESTA VOLTA VINCE" : 

: GOSUB 770 : : RETURN 
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740 REM 

750 CALL HCHAR(19,3,32,28):: DISPLAY AT(19,15-(8+LEN(L$)) 
/2) :"GRANDE, ";L$;"," 

760 DISPLAY AT(23,1):" QUELLA E'LA PAROLA SEGRETA" 

770 CALL HCHAR(5,3,32, 28) : : FOR 1 = 1 TO F :: DISPLAY AT(5, 
2*1+14-F):SEG$(W$,1,1):: NEXT I :: T=180 :: GOSUB 1050 :: 

RETURN 
780 REM 

790 FOR 1 = 0 TO 9 :: CALL COLOR(1,2,8) : : NEXT I :: CALL CO 
LOR(10,3,8) : : CALL COLOR(11,11,8): : CALL COLOR(1,13,8) 

800 FOR 1 = 1 TO 25 :: READ C,A$(I):: CALL CHAR(C,A$(I) ) : : 
NEXT I :: CALL SCREEN(15):: GOTO 170 

810 DATA 1 1 2,C0C0C0C0C0C0C0C0,1 13,0303030303030303,1 1 4,FF 
FFFFFFFFFFFFFF,115,C0C0C0FFFFC0C0CO,116,030303FFFF030303 

820 DATA 105,183C3C7E7EFFFFFF,106,FFFFFFFFFFFFFFFF,107,FF 
FFFF7E7E3C3C18,108,071F7FFFFF7F1F07,109,COFOFEFFFFFEFOCO 

830 DATA 96,00000000030F3FFF,97,FFFFFFFFFFFFFFFF,98,FFFFE 
FC78383C7EF,99,7F3F1E3C78FCFEFF,33,FFFFFFFFFFFFFFFF 

840 DATA 91,1F3F7FFFFFFFFFFF,92,F8FCFEFFFFFFFFFF,93,00000 
OOOCOFOFCFF 

850 DATA 12Q,071820404C8880818088844340201807E0180C023211 
0181 01 1 121C202041 8E0 

860 DATA 1 24,071 820404C888081 809F904844231 807E0180C02321 1 
01 31 01 F9091 222C418E0 

870 DATA 128,071820404C8880818083844840201807E0180C023211 
018101C12112020418E0 

880 DATA 1 32,030F1F3F3F3F3F1 FOF070301 01 02040880E0F0F8F8F8 
F8F0E0C0 80 

390 DATA 136,030F3F7F7F3FFFFFFFFF3F7F7F370701OOCOCCFEFEFC 
FFFFFFFFFCFEFEECE080 

900 DATA 140,000000000000183D4783010000000000000000000000 
18BCE2C1800000000000 

910 DATA 100,000101010001030307070703010001OICOEOFODOCOEO 

F0FOF8F8F8FOEOC02O20 

920 REM 

930 CALL HCHAR(1ó, 1 , 33,288) : : FOR 1 = 1 TO 21 :: READ R,C,G 
$ :: DISPLAY AT(R,C)SIZE(-6):G$ :: NEXT I :: GOTO 250 
940 DATA 9,12,'[aa\j,10,12,qrrrrp,11,12,qrrrrp,12,12,qrrr 
rp,13,14,st,14,14,st,15,14,st 

950 DATA 9,5, ili , 1 0,4,1 j j jm, 11,4,1 j j jm, 1 2,5, kj k, 1 3,6, b, 1 4 
,6,^,15,6,d 

960 DATA 9,22,iii,10,21,ljjjm,l1,21,ljjjm,l2,22,kjk,13,23 
,a,14,23,c,15,23,a 
970 REM 

980 DISPLAY AT(1,8)ERASE ALL :"MYSTERY SPELL": LO SCO 

PO DI MYSTERY":"SPELL E' INDOVINARE LA":"PAROLA SEGRETA." 

990 DISPLAY AT(6,4):"QUANDO PREMI UNA LETTERA,":"LA FACCI 
A FELICE SI MUOVE":"ALLA LETTERA PREMUTA E TI":"DIRA 1 SE 
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FAI UNA SCELTA" 

1000 DISPLAY AT(10,1):"GIUSTA O SBAGLIATA.":" SE GIUSTA 
SI LANCERA 1 ":"UN PALLONE. SE NO UN UCCELLO":"ATTERRERÀ'. 

Il 

1010 DISPLAY AT(14,1) :"SE NE ATTERRANO TROPPI"PERDERÀI 
LA PARTITA. 1 ': CI SONO 2 LIVELLI:" 

1020 DISPLAY AT(19,1)BEEP:"FACILE) PERMETTE 6 ERRORI.": 

:"DURO) PERMETTE 4 ERRORI." 

1030 DISPLAY AT(24,6):"**PREMI UN TASTO**" :: CALL KEY(0, 
K,S): : IF S = 0 THEN 1 030 ELSE 200 
1040 REM 

1 050 R=8 :: FOR SP=5 TO 13 : : C=INT(RND*240)+1 :: CALL SP 
RITE(#SP,140,2,R,C,0,12):: R=R+12 :: NEXT SP 
1060 CALL SOUND(T,175,0) 

1070 CALL SOUND(T,349,0,175,2) 

1080 CALL SOUND(T,587,0,175,2) 

1090 CALL SOUND(2*T,523,0,440,1,175,2) 

1100 CALL SOUND(T,587,0,175,2) 

1110 CALL SOUND(2*T,523,0,440,1,185,2) 

1120 CALL SOUND(T,196,0) 

1130 CALL SOUND(T,330,0,196,2) 

1140 CALL SOUND(T,587,0,196,2) 

1150 CALL SOUND(2*T,523,0,466,1,196,2) 

1160 CALL SOUND(T,587,0,196,2) 

1170 CALL SOUND(2*T,523,0,466,1,208,2) 

1180 CALL SOUND(T,220,2) 

1190 CALL SOUND(T,523,0,440,1,220,2) 

1200 CALL SOUND(T,311,2) 

1210 CALL SOUND(T,523,0,440,1,311,2) 

1220 CALL SOUND(T,294,2) 

1230 CALL SOUND(T,494,0,415,1,294,2) 

1240 CALL SOUND(T,277,2) 

1250 CALL SOUND(T,466, 0,392,1,277, 2) 

1260 CALL SOUND(T,440,0,262,2) 

1270 CALL SOUND(T,523,0,262,2) 

1280 CALL SOUND(T,587,0,247,2) 

1290 CALL SOUND(T,698,0,247,2) 

1300 CALL SOUND(2*T,659,0,233, 2) 

1310 CALL SOUND(2*T,784,0,659,1,131,2) 

1320 CALL SOUND(T,880,0,175,2) 

1330 CALL SOUND(T,831,0,175,2) 

1 340 CALL SOUND(T,880,0,262,2,349, 2) 

1350 CALL SOUND(T,1047,0,262,2,349,2) 

1360 CALL SOUND(T,1047,0,220,2) 

1370 CALL SOUND(T,880,0,220,2) 

1380 CALL SOUND(T,784,0,262,2,349,2) 

1390 CALL SOUND(T,698,0,262,2,349,2) 

1400 CALL SOUND(T,784,0,233,2) 

1410 CALL SOUND(T,698,0,233,2) 

1420 CALL SOUND(T,587,0,294,2,349,2) 

1430 CALL SOUND(T,698,0,294,2,349,2) 
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1 440 
1 450 
1 460 
1 470 
1480 
1 490 
1 500 
1 51 0 
1 520 
1 530 
1 540 
1 550 
1 560 
1 570 
1 580 
1 590 
1 600 
5,1) 
1 61 0 

1 620 
• H 


CALL SOUND(T,698,0,220,2) 

CALL SOUND(T,587,0,220,2) 

CALL SOUND(T,523,0,262,2,349,2) 

CALL SOUND(T,440,0,262,2,349,2) 

CALL SOUND(T,392,0,247,2) 

CALL SOUND(T,784,0,247,2) 

CALL SOUND(T,698,0,294,2,349,2) 

CALL SOUND(T,659,0,294,2,349,2) 

CALL SOUND(T,587,0,196,2) 

CALL SOUND(T,440,0,196,2) 

CALL SOUND(T,440,0,233,2,349,2) 

CALL SOUND(T,494,0,233,2,349,2) 

CALL SOUND(T,523,0,175,2,220,2) 

CALL SOUND(T,587,0,175,2,220,2) 

CALL SOUND(2*T,659,0,262,2) 

CALL SOUND(3*T,698,0,262,2,175,0) 

FOR 1=1 TO 30 STEP 2 :: CALL SOUND(-T,698,I,262,I,17 
: RETURN 

(1,4)ERASE ALL:"ISTRUZIONI LISTA PAROLE": 
SIA CREARE":"UNA LISTA DI PAROLE" 

(6,1):"CHE CARICARNE UNA ESISTENTE":"DA UN 


: NEXT I : 
REM 

DISPLAY AT 
QUI TU PUOI 
1630 DISPLAY AT 


A MASSA.": : : " MENTRE LA CREI, DIGITA LA": "PAROLA,.-"E PR 
EMI ENTER." 

1640 DISPLAY AT(12,1):"LA LUNGHEZZA MASSIMA DI OGNI":"PAR 
OLA E'13 CARATTERI. 20":"PAROLE POSSONO ESSERE CREATE":"! 


N UNA LISTA." 

.1650 DISPLAY AT(18,3)BEEP:"COME CREI UNA LISTA PUOI":"SAL 
VARLA A UNA MASSA PER USI":"FUTURI CON MYSTERY SPELL." 
1660 DISPLAY AT(24,6):"**PREMI UN TASTO**" :: CALL KEY(0, 
K,S): : IF S=0 THEN 1660 

1670 DISPLAY AT(7,1)ERASE ALL BEEP:" 1 = CREA UNA LIST 

A": 2 = CARICA UN 

A LISTA": :" 3 = ESCI" 

1680 CALL KEY(0,K,S):: IF S=0 OR(K<49 OR K>51)THEN 1680 : 
: J=0 :: ON K-48 GOTO 1690,1800,200 

1690 DISPLAY AT(1,2)ERASE ALL:"DIGITA LA LISTA DI PAROLE: 
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1 700 1=1 : : C=1 :: FOR A=1 TO 2 :: R=3 :: FOR Z = 1 TO 10 
1710 ACCEPT AT(R,C)SIZE(-13)BEEP:B$(I): : R=R+2 :: 1=1 + 1 : 


: NEXT Z :: C=15 :: NEXT A 

1720 DISPLAY AT(24,1)BEEP:"CORREGGI O CAMBI ? (S/N)" 

1 730 CALL KEY(0,K,S) : : IF S=0 OR K<>83 AND K<>78 THEN 173 
0 :: IF K=83 THEN 1700 :: J=1 :: GOTO 1800 
1 740 FOR 1 = 1 TO 20 : : PRINT #1 :B$(I): : NEXT I :: CLOSE #1 
:: GOTO 240 

1 750 FOR 1 = 1 TO 20 : : INPUT #1 :B$ ( I) ; : N^CT I :: CLOSE #1 

V - 

1760 DISPLAY AT(11,6)ERASE ALL BEEP:"VORRESTI VEDERE": :" 
LA LISTA DI PAROLE? (S/N) " 
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VtV66'LL 


1 770 CALL KEY(0,K,S) : : IF S = 0 OR(K<>83 AND K<>78)THEN 177 
0 :: IF K=83 THEN 1780 ELSE 240 

1780 DISPLAY AT(1,7)ERASE ALL BEEP:"LISTA DI PAROLE" :: R 
=3 :: FOR 1=1 TO 20 STEP 2 :: DISPLAY AT(R,1):B$(I),B$(1+ 
1): : R=R+2 : : NEXT I 

1790 DISPLAY AT(24,1):"PREMI UN TASTO SE HAI LETTO" :: CA 
LL KEY(0,K,S): : IF S = 0 THEN 1 790 ELSE 240 
1800 ON ERROR 1920 

1810 DISPLAY AT(5,6)ERASE ALL BEEP:"QUAL’E’ IL NOME DELLA 
TUA": :" MEMORIA DI MASSA?": :"(ESEMPIO: CSl O DSKl.PAR 
OLE) " 

1820 DISPLAY AT(23,1):"PREPARA LA MEMORIA DI MASSA" :: AC 
CEPT AT(11,3):F$ 

1 830 IF SEG$ (F$, 1 ,1 ) = ,, C" THEN 1 870 ELSE OPEN #1:F$,INTERN 

AL,UPDATE,FIXED 50 

1840 IF J=0 THEN 1750 ELSE 1740 

1 850 REM 

1860 FOR 1=1 TO 20 :: READ B$(I):: NEXT I :: GOTO 270 
1870 IF J = 0 THEN 1890 

1880 OPEN #1:F$,OUTPUT,INTERNAL,FIXED 50 :: FOR 1=1 TO 20 
:: PRINT #1:B$(I):: NEXT I :: CLOSE #1 :: GOTO 240 
1890 OPEN #1:F$,INPUT ,INTERNAL,FIXED 50 :: FOR 1=1 TO 20 
:: INPUT #1:B$(I):: NEXT I :: CLOSE #1 :: CALL CLEAR :: 
GOTO 1760 

1900 DATA BANANE,CAROTE,RABARBARO,BAMBOLA,ANGOLO,FUCILE,C 
ORNETTO,C ELEB RE,MELONE,ARANCE,MELE,ANGURIA 
1910 DATA FUNGHI,PIANETA,PATATE,POMODORI,GRAPPA,PIMPANTE, 
SPORT,LIMONI 

1920 PRINT "ERRORE...ERRORE" 

1930 PRINT "CONTROLLA NASTRI E DISCHI" 

1940 PRINT "IL PROGRAMMA RIPARTIRÀ’" 

1950 PRINT "ASPETTA PER FAVORE..." 

1960 FOR A=1 TO 500 
1970 NEXT A 
1980 RUN 


— 

Duello Spaziale 


- 


BASIC 


Questo è un programma che vi per¬ 
metterà di svilupparvi in acrobazie 
aeree (sulla falsariga di Red Baron). 
Fa un ottimo uso degli Sprites. 

La trama è la stessa: voi dovete di¬ 


struggere l'avversario a colpi di mi¬ 
tragliate, ed evitando di scontrar¬ 
vi. 

Per chi sta a sinistra, usate i tasti 
E,S,D,X per muovervi, e F per spa- 
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rare,- per chi sta a destra, usate i 
tasti per muovervi, e H per 


sparare. 


1oo REM 

110 CALL CLEAR 

120 DISPLAY AT(4,3):"** DUELLO SPAZIALE **" 

130 DISPLAY AT(8,3):"CONTROLLATE LE ASTRONAVI" :: DISPLAY 
AT(10,3):"CON I TASTI DELLE FRECCE." :: DISPLAY AT(13,3) 

:"SPARATE CON ' F' E ’H'." 

140 CALL MAGNIFY(3): : Al=1 :: A2 = 5 

150 CALL CHAR(96,"00000000F0783F3F3F3F78F0000000000000000 
OOOOOFO FFFFF") 

160 CALL CHAR(100,"00000000000001037F1FO7030301010003070E 
3C78F8F0E0C08") 

170 CALL CHAR(104,"01010101 03030303030303070F0F0C08808080 
8 OCOCOCOCOCOCOCOEOFOFO 3 O 8 ") 

180 CALL CHAR(108,"COE0703ClElFOFO70301000000000000000000 
OOOOOO 8 OCOFEF 8 EOCOCO 8 O 8") 

190 CALL CHAR(112,"0000000000000FFFFFOFO00000000000000000 
000 FiEFCFCFCFC1EOF") 

200 CALL CHAR(116,"0000000000000103070F1FiE3C70EOC0008080 
C0COE0F8FEC08") 

210 CALL CHAR(120,"080C0F0F070303030303030301 01 01 01 1 O30FO 
FOEOCOCOCOCOCOCOCO8080 808") 

220 CALL CHAR(124,"0001010303071F3F0301000000000000000000 
00000080C0E0F0F8783C0EO703") 

230 CALL CHAR(128,"00000000000000010100000000000000000000 
00000000808") 

240 CALL CHAR(132,"ClEl71381COE07E3E3070E1C3871ElC183878E 
1C3870E0C7C7E070381C8E8783") 

250 DISPLAY AT(18,3):"SCEGLI:" :: DISPLAY AT(20,6):"1 PRI 
NCIPIANTE" :: DISPLAY AT(21,6):"2 ESPERTO" :: DISPLAY AT( 
22,6):"3 PROFESSIONISTA" 

260 CALL KEY(0,K,S):: IF (K<49)+(K>51)THEN 260 
270 L=2* (K- 48) 

280 CALL CLEAR :: RANDOMIZE 

290 CALL SPRITE(#1,96,7,INT(RND*180),20,0,L,#2,112,6,INT( 
RND*180),240,0,-L) 

300 CALL KEY(1,K1,Si): : CALL KEY(2,K2,S2) 

310 IF S1=0 THEN 430 

320 IF Kl<> 5 THEN 340 ELSE IF Al>3 AND Al<8 THEN Al=Al-l 
ELSE IF Al <3 OR Al =8 THEN Al=Al+l 
330 GOTO 390 

340 IF Kl<>2 THEN 360 ELSE IF Al>5 THEN Al=Al-1 ELSE IF A 
1< 5 AND Al>1 THEN Al=Al+1 
350 GOTO 390 

360 IF Kl+lOl THEN 380 ELSE IF Al >3 AND Al <7 THEN Al =Al + 
1 ELSE IF Al <3 OR Al =8 THEN Al=Al-l 
370 GOTO 390 
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380 IF Kl 03 THEN 420 ELSE IF Al<5 AND Al >1 THEN Al=Al-l 
ELSE IF Al>5 THEN Al=Al+1 
390 IF Al=0 THEN Al =8 
400 IF Al=9 THEN Al =1 

410 CALL PATTERN(#1 , (Al*4)+92) : : ON Al GOSUB 640, 650,660, 
670,680,690,700,710 :: GOTO 430 
420 IF Kl=12 THEN GOSUB 800 
430 IF S2=0 THEN 550 

440 IF K2<>5 THEN 460 ELSE IF A2>3 AND A2<8 THEN A2=A2-1 
ELSE IF A2< 3 OR A2 = 8 THEN A2=A2+1 
4 50 GOTO 510 

460 IF K2 + 101 THEN 480 ELSE IF A2>3 AND A2<7 THEN A2=A2 + 
1 ELSE IF A2< 3 OR A2=8 THEN A2=A2-1 
470 GOTO 510 

480 IF K2<>2 THEN 500 ELSE IF A2>5 THEN A2=A2-1 ELSE IF A 
2< 5 AND A2>1 THEN A2=A2 + 1 
490 GOTO 510 


500 IF K2<>3 THEN 540 ELSE IF A2<5 AND A2>1 THEN A2=A2-1 
ELSE IF A2>5 THEN A2=A2+1 
510 IF A2=0 THEN A2=8 
520 IF A2=9 THEN A2=l 

530 CALL PATTERN(#2, (A2*4)+92) : : ON A2 GOSUB 720,730, 740, 
750,760,770,780,790 :: GOTO 550 
540 IF K2=l THEN GOSUB 920 


550 CALL COINC(#1,#2,2.5*L,C): : IF C=-l THEN 1100 
560 CALL COINC(#1,#4,3*L,C): : IF C=-l THEN 1030 
570 CALL COINC(#2,#3,3*L,C):: IF C=-l THEN 950 
580 CALL SOUND(-4000,110,4,-4,4) 

590 IF B=0 THEN 610 

600 CALL POSITION(#3,BX,BY): : IF BX<6 OR BX>186 OR BY<8 O 
R 8Y>2 50 THEN CALL DELSPRITE(#3) : : B = 0 
610 IF B2=0 THEN 300 

620 CALL POSITION(#4,B2X,B2Y):: IF B2X<6 OR B2X>186 OR B2 
Y<8 OR B2Y>250 THEN CALL DELSPRITE ( #4): : B2 = 0 
630 GOTO 300 

RETURN 

L* .7): : RETURN 
RETURN 

-L*.7): : RETURN 
RETURN 


640 CALL MOTION(#1,0,L) : 
650 CALL MOTION(#1,-L*.7 
660 CALL MOTION ( # 1 , L, 0) 
670 CALL MOTION(#1,*L*.7 
680 CALL MOTION(#1,0,-L) 


690 CALL MOTION(#1,L*•7,-L*.7): : RETURN 

700 CALL MOTION(#1,L,0) : : RETURN 

710 CALL MOTION(#1,L*.7,L*.7):: RETURN 


720 CALL MOTION(#2,0,L): 
730 CALL MOTION(#2,-L*.7 
740 CALL MOTION(#2,-L,0) 
750 CALL MOTION(#2,-L*.7 
760 CALL MOTION(#2,0,-L) 


RETURN 
L* .7): : RETURN 
: RETURN 
-L*.7): : RETURN 
RETURN 


770 CALL MOTION(#2,L*.7,-L*.7) : : RETURN 

780 CALL MOTION(#2,L,0):: RETURN 

790 CALL MOTION(#2,L*.7,L*.7):: RETURN 
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800 IF B=1 THEN RETURN 
810 CALL POSITION(#1,BA,8B) 

820 D=Al :: N=3 :: Ri=BA :: C1=BB :: B=1 

830 ON D GOTO 840,850,860,870,880,890,900,910 

840 CALL SPRITE(#N,128,2,Ri,Cl,0,L*2):: RETURN 

850 CALL SPRITE(#N,128,2,Rl,Cl>-L*1 .4,L* 1 .4) : : RETURN 

860 CALL SPRITE(IN,128,2,Ri,Cl,*L*2,0):: RETURN 

870 CALL SPRITE(tN,128,2,Ri,C1,-L*1•4,-L*1.4) : : RETURN 

880 CALL SPRITE(#N,128,2,Ri,C1,0,-L*2):: RETURN 

890 CALL SPRITE(#N,128,2,Ri,Cl» L*1•4,-L*l.4) : : RETURN 

900 CALL SPRITE(#N,128,2,Ri,Cl,L*2,0) : : RETURN 

910 CALL SPRITE(#N,128,2,Rl, C1 » L* 1. 4, L* 1.4) : : RETURN 

920 IF B2=l THEN RETURN 

930 CALL POSITION(#2,B2X,B2Y) 

940 Ri=B2X :: C1=B2Y :: D=A2 :: N=4 :: B2=l :: GOTO 830 
950 CALL DELSPRITE(#3,#4) 

960 CALL MOTION(#2,0,0): : CALL POSITION(#2,P2X,P2Y) 

970 CALL SPRITE(#2,132,10,P2X,P2Y,20,0) 

980 CALL SOUND(-500,110,4,-5,4) 

990 CALL POSITION(#2,P2X,P2Y): : IF P2X<186 THEN 980 
1000 CALL DELSPRITE(#2,#1) 

101O RED=RED+1 

1020 DISPLAY AT(12,4):"HA VINTO IL ROSSO." :: GOTO 1170 
1030 CALL DELSPRITE{#3,#4) 

1 040 CALL MOTION(#1,0,0) : : CALL POSITION(* 1 ,Pi X,PiY) 

1050 CALL SPRITE(#1,132,10,PlX,PlY,20,0) 

1060 CALL SOUND(-1000,110,4,-5,4) 

1070 CALL DELSPRITE(#1,#2) 

1080 BLUE=BLUE+1 

1090 DISPLAY AT(12,4):"HA VINTO IL BLU." :: GOTO 1170 
1100 CALL MOTION(#l,0,0,#2,0,0) : : CALL POSITION(#1 ,Pi X,Pi 
Y,#2,P2X,P2Y) 

1110 CALL SPRITE(#1,132,10,PlX,PlY,20,0,#2,132,10,P2X,P2Y 
,20,0) 

1120 CALL POSITION(#1,PlX,PlY): : CALL POS ITION(#2,P2X,P2Y 
):: IF PiX>186 OR P2X>186 THEN CALL DELSPRITE(Il,#2) 

1130 CALL SOUND(-500,110,4,-6,4) 

1140 IF P1XO0 OR P2XOO THEN 1120 
1150 CALL DELSPRITE(ALL) 

1160 DISPLAY AT(12,4):"VI SIETE SCONTRATI." :: GOTO 1170 

1170 DISPLAY AT(16,4):"PUNTEGGIO:" 

1180 DISPLAY AT(18,8):"ROSSO = "; RED 
1190 DISPLAY AT(20,8):"BLU = "; BLUE 
1200 DISPLAY AT(23,4):"CONTINUI? (S/N)" 

1210 Al=1 :: A2=5 :: B=0 :: B2=0 :: C=0 
1220 CALL KEY(0,K,S) 

1230 IF K=83 THEN 280 
1240 IF K<>78 THEN 1220 
1250 END 
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« 


Caccia al tesoro 


In una misteriosa quanto non co¬ 
nosciuta terra, devi guidare il tuo 
equipaggio (reclutato tra gli abi¬ 
tanti delle zone vicine) alla ricerca 
di un mitico tesoro. Alla partenza 
disponi di 500 dollari con cui assu¬ 
mere uomini, acquistare attrezzi da 
scavo, cibo e bevande. Organiz¬ 
zata dunque la spedizione puoi 
iniziare a cercare i tesori nascosti, 


seguendo le indicazioni del tuo ra¬ 
dar. Quando vorrai far rifornimen¬ 
to o nuovi acquisti potrai rientrare 
al campo base. Cerca di essere un 
oculato amministratore, oltre che 
un bravo esploratore, perché co¬ 
nosciamo persone che hanno dila¬ 
pidato fortune in cerca di tesori... 
mai trovati. Buona cacciai 


1 REM 

2 REM * CACCIA AL TESORO * 

3 REM *********************** 

5 GO SUB 9100 

10 GO SUB 8000: LET gd=l: LET d=3 

15 OVER 1: BRIGHT 8: GO SUB 9000: LET x = 16: LET y=ll 
INK 6;"C": PRINT BRIGHT 1; INK 5;AT 1,31;"J” 

20 LET ti=0: PAPER 8: OVER 1 
40 GO SUB 3200: GO SUB 3210 

100 INK 9: LET i$=INKEY$: GO SUB 3000 

101 PRINT OVER 1;AT y,x;CHR$ (143+d) 


PRINT AT y,x; 


102 

IF 

i$="0” 

THEN 

GO SUB 1000 




110 

IF 

i$ = " 8 " 

THEN 

LET 

d=d+l: IF 

d>8 

THEN 

LET d=l 

120 

IF 

i$="5" 

THEN 

LET 

d=d-l: IF 

d< 1 

THEN 

LET d=8 


145 GO SUB 998 

147 IF x=31 AND y=l THEN GO SUB 8510: LET y=2: LET d=5 

148 IF CODE SCREEN5 (y,x)=0 THEN BEEP .5,0: GO SUB 4000 

149 PRINT OVER 1;AT y,x; INK 6;CHRS (143+d) 

150 GO SUB 3000 

200 LET st-st-l: PRINT OVER 0;AT 21,22; PAPER 8; INK 8;st; n ": IF s 
t<-0 THEN GO SUB 4000 
500 GO TO 100 

998 LET x = x+((d = 4 OR d = 5 OR d=6) AND x<31)-((d = l OR d»2 OR d = 8) 

AND x>0): LET y«y-( (d = 3 OR d-2 OR d-4) AND y>l)+((d=8 OR d=7 
OR d=6) AND y<20) 

999 RETURN 

1000 IF de<1 THEN BEEP .05,-20: RETURN 

1010 LET de-de-1: LET st=st-50: INK 8: PLOT OVER 1;0,0: DRAW OVER 1 
;x*8+3,175-(y*8)-5 

’ 020 PLOT OVER 1 ; 255,0: DRAW OVER l(255-(x*8+3)),175-(y»8)-5 

1035 
1050 
1060 


PLOT OVER 1 ; 0,175 : DRAW OVER 1 ;(x*8+3),-((y*8)-5)-8 
PLOT OVER 1 ; 2 55,175 : DRAW OVER 1 ;-(255-<x*8+3)*1) ,-(y*8)-4 
FOR f=l TO 3: BEEP .1,20: NEXT f 

PLOT OVER 1;0,O: DRAW OVER 1 ;x»8 + 3,175-(y*8)- 5 
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1 070 PLOT OVER 1;255,0: DRAW OVER 1 ;-(255-(x*8+3>) ,175-(y*8)-5 
1075 PLOT OVER 1 ; 0,175 ; DRAW OVER 1 ;(x*8 + 3) ,-((y*8)-5)-8 
1 080 PLOT OVER 1 ,-255,175: DRAW OVER 1 ;-(255-(x*8+3)- 1 ) ,-(y*8)-4 
2000 PRINT PAPER 1; OVER 0;AT 0,10;TAB 32: PRINT OVER 0; INK 7;AT 0 
,10;"RADAR:";("Nord " AND y>b);("Sud " AND y<b);(“Ovest " AND x> 
a);("Est " AND x<a) 

2005 PRINT FLASH 1; PAPER 2; INK 6;AT y,x;"X” 

2010 IF xOa AND yOb THEN RETURN 

2020 FOR f*-20 TO 20: PRINT AT 0,10; INK 7; OVER 0 ;"RADAR:"; PAPER 

RND* 5+2;"Tutto OKI"; BEEP . 008,f: NEXT f: LET m=m+250: GO SUB 90 
40: GO SUB 3210 
2100 RETURN 

3000 LET ti = ti + .062 5 : BEEP (ti-INT ti)*.02,ti: PRINT INK 7; OVER 0; 
AT 0,0;" T : " ; ( " 0 " AND INT ti<10);INT ti: IF INT tiOl 0 THEN 
RETURN 

3010 LET m=m+20: GO SUB 9040: LET di*0: OVER 0: LET ti-0: PRINT AT y, 
x;"*": FOR g = 1 TO 2: FOR f-2 TO 14 STEP 3: CIRCLE INK 8; 

BRIGHT 8; OVER 1 ;bx*8+4,175-(by*8)-4,£ 

3020 LET di*(SCREENS ..)+di: NEXT f: NEXT g: GO SUB 3200: 

PRINT AT y,x; INK 6;CHR$ (143+d): IF NOT di THEN RETURN 
3100 GO TO 4000 

3200 LET bX=3+INT (RND*25): LET by=3+INT (RND*15): RETURN 
3210 LET a = INT (RND*31): LET b=INT (RND»21): IF ATTR (b,a)<>7 
THEN GO TO 3210 
3220 RETURN 
4000 LET mh=mh-1 

4020 IF st<l THEN PRINT AT 11,0 ; “L 1 equipaggio e' morto ESAUSTO!!!": 

FOR f=-10 TO -40 STEP -5: BEEP .35,f: NEXT £: LET mh=0 
4030 PRINT AT 21,13; OVER 0;mh: PRINT AT y,x; OVER 0; PAPER 0;" " 

4040 FOR g = 6 TO 0 STEP -3: BORDER g: FOR f=l TO 8: PRINT OVER 0;AT y 
,x; INK RND*6+1;"ABCDEFGH"(f TO f): BEEP .008,f: BEEP .004,f*1.5 
: BEEP .002,f*2: NEXT f: NEXT g 
4050 PRINT OVER 0; INK 7; BRIGHT 1;AT y,x;"M": GO SUB 998 
4090 IF mh<>0 THEN RETURN 
4100 GO SUB 5000: GO TO 10 
5000 BORDER 5: PAPER 5: INK 0: CLS 

5010 PRINT AT 5,2;"LA FINE DELLA LUNGA RICERCA!";AT 10,4;"HAI RISPARM 
IATO #";m;" MONETE" 

5020 FOR f=0 TO 255: OUT 254,0: OUT 254,f: NEXT £ 

5050 PAUSE 140: RETURN 

8000 BORDER 2: PAPER 2: INK 6: CLS 

8010 PRINT PAPER 1; FLASH 1;" CACCIA AL TESORO" 

8020 PRINT INK 5; BRIGHT 1 "'In questo gioco devi guidare il cammino 
del tuo equipaggio in cerca di un tesoro. Pare facile?ricordat 
i che devi evitare mine,alberi e le buche scavate dai tuoi ste 
ssi uomini!" 

8030 PRINT INK 7"'Presta attenzione anche ai soldidi cui disponi, pe 
rche' dovrai poter acquistare cibo e attrezziper i tuoi uomini. 
Quando avrai esaurito le scorte, potrai tornare alla base 

(J) per fare nuove compere." 

8040 PRINT INK 6"'Ricorda, infine, che lo scopo del gioco e' quell 
o di diventareRICCHI, non di tornare...MORTI!!" 

8100 PAUSE 0: PAPER 0: FOR f=0 TO 21: LET 1=USR 3280: PRINT INK 1; 

AT 21,0;" IIIIIIIIiiiiiiiiiiiiiiiiiiiiiiii ": NEXT £ 

8500 OVER 0: LET cd=l: LET de=0: LET fd=0: LET mh=0: LET st=500: 

INK 6: BORDER 0: LET m=500 

8505 PRINT AT 2,2;"5 - Diminuisce 8 - Aumenta";AT 4,10;"0 - Scelta" 
8510 LET pq=50: LET sS="Scelta attrezzi da scavo": GO SUB 8800: LET d 
e=de+a 

8520 LET pq=200: LET s$="Uomini da assumere": GO SUB 8800: LET mh=mh+ 
a + 1 
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8540 LET pq=20*mh: LET s$="Cibo e bevande": GO SUB 8800: LET fd=fd+a 
8560 LET cd=0: LET m2=m: LET pq=l: LET m=fd: LET s$="Sfami gli uomini 
? (QUANTO?)": GO SUB 8800: LET m=m2: LET fd=fd-a: LET st=st+a*10 
0 

8700 GO SUB 9045: RETURN 

8800 POKE 23659,1: LET a=0: PRINT OVER 0;AT 22,0;s$;":";TAB 32 
8810 LET Ì$=INKEY$: PRINT INK 6; OVER 0;AT 22,0+LEN S$+2; INK 3,-a;" 

IF Ì5<>“" THEN BEEP .08,0 
8820 IF i5=”5" AND a>0 THEN LET a>a-1: LET m=m+pq 
8830 IF i$="8" AND m-pq>=0 THEN LET a=a+l : LET m=m-pq 
8880 IF i$ = "0" THEN POKE 23659,2: INPUT : RETURN 

8885 IF i$<>"" AND cd THEN PRINT PAPER 6; INK 2; OVER 0;AT 18,2;" 

Contanti:”; INVERSE 1;m; PAPER 0;"{2SG8}" 

8890 GO TO 8810 
8900 RETURN 

9000 BORDER 0: PAPER 0: OVER 0: INK 7: CLS 
9010 PRINT BRIGHT 1; PAPER 1;" 

9022 FOR f»l TO 20: LET X=RND*31: LET y-RND*19+l: LET z=RND*3+l 
9030 LET C= INT (RND*2) : PRINT OVER 0;AT y,X; INK z;CHR$ (154+C): 

NEXT f 

9040 PRINT AT 21,0; BRIGHT 1; PAPER 1; INK 7; OVER 0;"$ UOMINI: 

FORZA: " 

9045 PRINT OVER 0; INK 7; BRIGHT 1; PAPER 1;AT 21,1;m;" ";AT 21,13; 

mh 

9050 RETURN 

9100 FOR f=USR "a" TO USR "m"+7: READ a: POKE f,a: NEXT f 
9120 DATA 16,48,95, 129,a,95,48,16,252,132,136,132,162,209,1 0,4 
9130 DATA 24,36,66,231,36,a,a,60,63,33,17,33,69,139,80,32,8,12,250,12 
9,a,250,12,8,32,80,139,69,33,17,33,63,60,36,a,a,231,66,36,24,4,1 
0,209,162,132,136,132,252 

9140 DATA 126,129,153,165,a,153,129,126,24,36,66,-l,129,153,a,-l 
9150 DATA 8,8,20,12,22,42,95,8,12,54,75,215,110,40,12,8,129,90,52,18, 
82,60,90,129 
9400 RETURN 


li!- 


« 


Isotopi radioattivi 


In fondo al mare sono stati ritrovati \ attivi: i contenitori sono in un pie- 
alcuni bidoni pieni di isotopi radio- I toso stato di conservazione e la ca- 
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tastrofe ecologica sembra immi¬ 
nente ed inevitabile. Fortunata¬ 
mente ci sono 5 mini sommergibili 
a vostra, disposizione: se riuscirete 
ad evitare le pericolosissime pio¬ 


vre blu (mutazioni genetiche vora¬ 
ci e poco socievoli), il contatto con 
le alghe ormai contaminate e se fa¬ 
rete sufficientemente in fretta, for¬ 
se il disastro verrà evitato! 


10 REM *«•***«*»•***»**»••»**» 

11 REM ISOTOPI RADIOATTIVI 

12 REM **»**»**»•*•*»*»*•**»*» 

20 POKE 23609,10: POKE 23658,8: GO SUB 9000: GO SUB 8900: GO SUB 20 
00: GO TO 25 

21 GO SUB 8900: GO SUB 2000 

25 PAPER 5: CLS : POKE 23624,8: BORDER 1 
40 GO SUB 6000: GO SUB 6050 

1000 LET XI =X: LET Yl=Y 

1001 LET US-INKEYS 

1010 PRINT AT Y1,X1 ;” ";AT *1+1,XI;" " 

1021 IF US =CHR$ 32 THEN GO SUB 3000 

1022 LET X=X+(US=“P")-(US®"0"): LET Y=Y+(U$="A")-(U$= M Q") 

1023 IF PU=1 THEN GO SUB 1510 

1025 LET Y=Y+(Y<1)-(Y>16) 

1026 LET X=X-(X>30)+(X<0) 

1027 LET L=USR 60000 

1028 IF ATTR (Y,X)<>40 OR ATTR (Y+1,X)<>40 OR ATTR (Y,X+1)<>40 

OR ATTR (Y+l ,X+1 ) 0 40 THEN GO SUB 7000 

1030 PRINT AT Y,X;"QR*';AT Y+1,X;"ST" 

1031 IF TI=! THEN GO TO 5000 

1032 IF TK100 THEN PRINT AT 21,16; PAPER 7;" *: IF TI<10 THEN 

PRINT AT 21,15; PAPER 7,-" " 

1035 IF PU=1 THEN GO SUB 1500 

1040 LET TI=TI-1: PRINT AT 21,14; PAPER 7;TI 

1090 GO TO 1000 

1500 PRINT AT Y+2,X;"KL“;AT Y+3,X;"MN" 

1505 RETURN 

1510 PRINT AT Y1+2.X1; PAPER 5; n ";AT *1+3, XI;" " 

1520 RETURN 

2000 PAPER 0: CLS : INK 7: POKE 23624,15: CLS : BORDER 1 
2010 PRINT AT 0,12; BRIGHT 1;"ISOTOPI" 

2020 PRINT AT 2,0;"In questo gioco tu (il minisub) devi raccogliere b 
idoni pieni diisotopi radioattivi. Raccogli i bidoni nascosti tr 
a le alghe e portali sino alla nave appoggio." 

2030 PRINT "Devi pero* fare in fretta: trascorso un certo tempo 

gli isotopi diventano infatti molto pericolosi!" 

2035 PRINT "Occhio, infine, alle voraci e tentacolari PIOVRE BLU, c 
he in gran numero infestano il mare..." 

2040 PRINT AT 19,1;"Q=SU A=GIU 0=DESTRA P-SINISTRA";AT 18,7;"SPACE»PR 
ENDI/LASCIA" 

2041 PRINT AT 14,12; INK 4;"I{5G8J"; INK 2 ; "KL{ 4G8 ) " ; INK 7;"{3G8}QR" 

2042 PRINT AT 15,12; INK 4;"J(5G8J"; INK 2;"MN{4G8)"; INK 7;"{3G8)ST" 

2043 PRINT AT 16,0;"PIOVRA ALGHE BIDONE SUB" 

2049 LET IN=0 

2050 PRINT AT 21,0;" PREMI <S> PER GIOCARE" 

2051 PRINT AT 14,3; INK 5;"EF";AT 15,3;"GH" 

2052 PRINT AT 0,12; INK IN; 1r fSOTOPI": LET IN=IN+1: IF IN=8 THEN 

LET IN=0 
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2053 PAUSE 6 

2054 IF INKEY$="S" THEN GO TO 2090 

2056 PRINT AT 14,3; INK 5;"AB";AT 15,3;"CD" 

2057 PAUSE 6: GO TO 2051 

2090 PAPER 5: CLS : BORDER 1: INK 0: RETURN 

3000 IF Y=16 THEN GO TO 3010 

3001 IF Y=1 THEN GO TO 3100 

3002 IF Y<> 16 OR VOI THEN RETURN 

3010 IF ATTR (Y+2,X)<>42 OR ATTR (Y+2,X+1)<>42 THEN GO TO 3190 
3020 LET PU=1: POKE 60230,INT (RND*6)+16: FOR N«10 TO 150 STEP 10: 

POKE 60228,N: LET L=USR 60227: NEXT N: PRINT AT Y+2,X;" ";AT Y 
+3,X;" ": BORDER 1 

3030 RETURN 

3100 IF X<10 OR X>20 OR PU=0 THEN RETURN 
3110 PRINT AT Y1+2,X1;" ";AT Y1+3.X1;” " 

3115 POKE 60230,INT (RND*6)+16: FOR N=150 TO 10 STEP -10: POKE 60228, 
N: LET L=USR 60227: NEXT N: BORDER 1 
3120 LET PU«0: LET SOSC+100: PRINT AT 21,26; PAPER 7;SC: PAPER 5: 

LET CAN=CAN+1 : LET PUF=FT-CAN: IF CAN'FTtl THEN GO TO 4000 
31 90 RETURN 
4000 REM FATTO! 

4010 CLS : PRINT AT 8,11 ;"COMPLIMENTI";AT 10,5,-“HAI RACCOLTO TUTTI GL 
I ISOTOPI RADIOATTIVI !!" 

4020 PRINT AT 14,8; INK 1;"IL TUO TEMPO: M ;TI 
4025 PRINT AT 16,12; INK 2; PLASH l; M BONUS ";TI: LET SC=SC+TI 
4030 FOR N=9 TO 90: POKE 60181,N: LET L=USR 60179: NEXT N 
4040 PRINT #0;"PREMI UN TASTO PER PASSARE ALLA PROSSIMA FASE DI RACCO 
LTA." 

4045 BORDER 1: PAUSE 0 

4050 LET CAN=0: LET FT=FT+1: LET PUF=FT: LET PC=PC-3: IF FT=9 THEN 
LET FT= 9 

4055 IF PC<1 THEN LET PC=1 

4060 CLS : LET Y=1: LET TI=200+50*FT: LET Z=Z+1: GO SUB 8900: LET X=1 
5: GO TO 30 

5000 CLS : PRINT AT 10,7; FLASH 1; INK 2;"IL TEMPO E’ SCADUTO" 

5010 PRINT AT 12,3;"LA RADIOATTIVITA' HA ORMAI RAGGIUNTO UN L 

IVELLO TROPPO ALTO.. MISSIONE ABBANDONA 

TA" 

5015 FOR N=130 TO 9 STEP -1: POKE 60181,N: LET L=USR 60179: NEXT N 
5020 PAUSE 600: GO TO 7200 

6000 FOR M=0 TO PUF: FOR N=PC TO PC+PUF*3 STEP 3: PRINT AT 18,N; 

INK 2 ;"KL": NEXT N: NEXT M 

6001 FOR M=0 TO PUF: FOR N=PC TO PC+PUF*3 STEP 3: PRINT AT 19,N; 

INK 2 ;"MN": NEXT N: NEXT M 

6002 INK 4: FOR N=0 TO 32 STEP 3: PRINT AT 16,N;"I": NEXT N: FOR N=0 

TO 32 STEP 3: PRINT AT 17,N;“J": NEXT N 

6003 INK 4: FOR N=0 TO 32 STEP 3: PRINT AT 18,N;"J”: NEXT N: FOR N=0 

TO 32 STEP 3: PRINT AT 19,N;"J": NEXT N 

6004 INK 0: RETURN 

6050 PRINT AT 20,0; PAPER 6;L$ 

6055 PRINT AT 21,0; PAPER 6;L$: PRINT AT 21,0; PAPER 7;" SUB=";LI;" 

TEMPO=";TI;" PUNTI*";SC 
6060 PRINT AT 0,10;"O{10SG8)P" 

61 00 RETURN 

7000 POKE 60139,40: LET LI-LI-1: PRINT AT 21,5; PAPER 7;LI 

7005 LET CAR=CAN 

7010 LET L=USR 60201 

7020 IF LI=0 THEN GO TO 7200 

7030 LET PU=0: LET Y=1: LET X=16: CLS : GO TO 30 
7200 PAPER 0: POKE 23624,0: PAUSE 300 

7210 PRINT AT 20,0; PAPER 0; INK 6;" LA PARTITA E' FINITA " 
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7220 POKE 60230,17: FOR N = 0 TO 19: POKE 60228,170: PR1NT AT 21,0; 
PAPER 0 ;L$: LET L=USR 3280: RANDOMIZE OSR 60227: NEXT N: 

BORDER 1 

7230 POKE 60181,255: PRINT AT 7,5; INK 5;"UNA BELLA PRESTAZIONE...": 

FOR N=0 TO 4: LET L=USR 60179: NEXT N 
7235 BORDER 1 

7240 PAUSE 30: PRINT AT 10,8; INK 4;'*I TUOI PUNTI: ";SC: LET L=USR 60 
201 

7300 PRINT #0;" PREMI UN TASTO PER CONTINUARE " 

7305 INK 0: LET Z=2: LET CAN=0: LET PC=1: LET PU=0: LET FT=2: LET PUF 

= FT: LET Y=3: LET X*1 6 

7306 FOR N=42000 TO 42050: POKE N,0: NEXT N 

7310 PAUSE 0: LET LI=5: LET TI-200: LET SC-0: GO TO 21 

8900 POKE 42000,4: POKE 42001,14: POKE 42002,1: POKE 42003,0: POKE 42 
004,1 : POKE 42005,255 
8910 CLS : LET A=42005 
8915 FOR F=1 TO Z 

8920 POKE A.INT (RND*29+2) 

8930 POKE A+l.INT (RND+10 + 4) 

8940 POKE A+2,1 
8950 POKE A+3, 1 

8960 IF NOT PEEK (A+2) AND NOT PEEK (A+3) THEN GO TO 8940 

8970 POKE A+4,1 

8980 POKE A+5,255 

8985 LET A=A+5 

8990 NEXT F 

8995 RETURN 

9000 LET TOT=0: FOR N=60000 TO 60247: READ A: POKE N,A: LET TOT=TOT+A 
: NEXT N 

9010 IF T0TO28578 THEN PRINT "ERRORE NELLE LINEE DATA II! CON 

TROLLA I DATI SENZA DARE RUN!”: STOP 
9020 DATA 221,33,1 6,1 64,221,1 26,0,2 54,255,40,34,95,221 , 86,1,6,2,62,22 
,215,122,215,123,215,62,32,215,62,32,215,20,16,240,221,35,221,35 
,2 21,35,221,35,221,35,24,21 5,221,33,16,164,221,126 
90 30 DATA 0,254,2 55,200,221,1 34,2,2 54,255,40,4,2 54,31,32,8,221,126,2, 

237.68.221.1 19,2,221,126,1,254,2, 40,4,254,14,32,8,221,1 26, 3,237, 
68,221,119,3,221,126,0,221,134,2,221,119 

9050 DATA 0,221,126,1,221,134,3,221,119,1,14,144,221,203,4,126,40,10, 

221.203.4.190.62.4.129.79.24.4.221.203.4.254.221.126.4.203.191.1 
98,40,50,143,92,221,86,1,6,2,62,22,215 

9060 DATA 122,215,221,126,0,215,121,215,12,121,215,12,20,16,238,221,3 
5, 221 , 35,221,35,221,35,221 , 35, 195,14 5,234 
9070 DATA 243,14,255,62,16,237,163,65,16,254,62,7,237,163,65,16,254,1 
3, 32,2 39,251,201,6,35,197,33,0,3, 17,1,0,229,205, 181,3,225, 17, 16, 
0, 167,237,82,32,240,1 93, 16, 233,201,1 4,0,62,16,21 1 ,254 
9080 DATA 65,16,254,62,7,211,254,65,16,254,13,32,239,201 
9100 RESTORE 9100: FOR N*USR "A" TO USR "T”+7: READ A: POKE N,A: 

NEXT N 

9110 DATA 0,0,0,0,1,3,5,71,0,0,0,0,128,192,164,234,166,30,11,180,201, 
18,17,34,105,112,246,217,36,34,17,12 
9120 DATA 0,0,0,0,33,67,69,37,0,0,0,0,128,195,164,168,39,159,139,116, 
9,17,98,12,233,242,244,216,37,34,32,16 
9130 DATA 0,82,44,56,60,120,120,60,60,120,120,60,60,120,120,60,23,63, 
126,255,254,254,254,185,152,252,126,255,127,127,127,157,185,255, 
254,255,255,120,63,25,157,255,127,255,255,30,252,152 
9140 DATA 255,127,63,31,15,7,3,1,252,248,244,252,244,240,254,0,0,7,15 
,2 8,60,231 ,127,2 55,0, 128,248,1 32, 178,177, 161,2 55, 104,2 38,1 09, 2 35 
,104,63,31,12,213,255,214,252,248,240,224,96 
9500 LET Z =2 : LET X=16: LET Y=1: LET LI = 5: LET SC=0: LET TI=200 
9510 LET L$=" LET PU-0 

9920 LET CAN=0: LET PC=1: LET FT=2: LET PUF=FT 
9950 RETURN 
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